; Disassembly of the file "POWER.COM" ; ; CPU Type: Z80 ; ; Using the opcode map file "POWER.opmap" ; ; Created with dZ80 2.0 ; ; on Monday, 12 of December 2016 at 10:12 PM ; 0100 C31003 JP $0310 0103 1A DEFB $1A 0104 02 DEFB $02 0105 18 DEFB $18 0106 0B DEFB $0B 0107 3D DEFB $3D 0108 2E DEFB $2E 0109 7E DEFB $7E 010A 3D DEFB $3D 010B 1B DEFB $1B 010C 01 DEFB $01 010D FF DEFB $FF 010E FF DEFB $FF 010F 20 DEFB $20 0110 63 DEFB $63 ; \ stack address 0111 EB DEFB $EB ; / backup 0112 00 DEFB $00 0113 00 DEFB $00 0114 00 DEFB $00 0115 00 DEFB $00 0116 00 DEFB $00 0117 00 DEFB $00 0118 00 DEFB $00 0119 00 DEFB $00 011A 01 DEFB $01 011B E5 DEFB $E5 011C 00 DEFB $00 011D 7F DEFB $7F 011E 01 DEFB $01 011F 0D DEFB $0D 0120 00 DEFB $00 0121 2A DEFB $2A 0122 01 DEFB $01 0123 00 DEFB $00 0124 54 DEFB $54 0125 21 DEFB $21 0126 2E DEFB $2E 0127 01 DEFB $01 0128 46 DEFB $46 0129 7E DEFB $7E 012A 2F DEFB $2F 012B 77 DEFB $77 012C BE DEFB $BE 012D 70 DEFB $70 012E C2 DEFB $C2 012F 38 DEFB $38 0130 01 DEFB $01 0131 23 DEFB $23 0132 7C DEFB $7C 0133 BA DEFB $BA 0134 C2 DEFB $C2 0135 28 DEFB $28 0136 01 DEFB $01 0137 C9 DEFB $C9 0138 1E DEFB $1E 0139 3F DEFB $3F 013A 0E DEFB $0E 013B 02 DEFB $02 013C C3 DEFB $C3 013D 05 DEFB $05 013E 00 DEFB $00 013F FF DEFB $FF 0140 C9 DEFB $C9 0141 FF DEFB $FF 0142 FF DEFB $FF 0143 FF DEFB $FF 0144 FF DEFB $FF 0145 FF DEFB $FF 0146 FF DEFB $FF 0147 FF DEFB $FF 0148 C3 DEFB $C3 0149 24 DEFB $24 014A 04 DEFB $04 014B FF DEFB $FF 014C FF DEFB $FF 014D FF DEFB $FF 014E FF DEFB $FF 014F FF DEFB $FF 0150 C3 DEFB $C3 0151 29 DEFB $29 0152 04 DEFB $04 0153 FF DEFB $FF 0154 FF DEFB $FF 0155 FF DEFB $FF 0156 FF DEFB $FF 0157 FF DEFB $FF 0158 C3 DEFB $C3 0159 D3 DEFB $D3 015A 04 DEFB $04 015B FF DEFB $FF 015C FF DEFB $FF 015D FF DEFB $FF 015E FF DEFB $FF 015F FF DEFB $FF 0160 00 DEFB $00 0161 0F DEFB $0F 0162 02 DEFB $02 0163 00 DEFB $00 0164 03 DEFB $03 0165 FF DEFB $FF 0166 00 DEFB $00 0167 FF DEFB $FF 0168 48 DEFB $48 0169 00 DEFB $00 016A 01 DEFB $01 ; Looks like this is used as default drive#: 00=default drive, 01=A:(0), 02=B:(1), 03=C:(2) etc. ; POWER.COM asks for this drive at startup. Since 01 specifies logical A:, we will need a disk in drive A:. ; ######### CHANGE THIS TO 00 AND POWER.COM WILL NOT ASK FOR DRIVE 0 AT STARTUP ########## 016B 81 DEFB $81 016C 00 DEFB $00 016D FF DEFB $FF 016E FF DEFB $FF 016F 00 DEFB $00 0170 00 DEFB $00 ; string length - 1 0171 1B DEFB $1B ; string start 0172 29 DEFB $29 0173 00 DEFB $00 0174 00 DEFB $00 0175 00 DEFB $00 0176 00 DEFB $00 0177 00 DEFB $00 0178 00 DEFB $00 0179 1B DEFB $1B 017A 28 DEFB $28 017B 00 DEFB $00 017C 00 DEFB $00 017D 00 DEFB $00 017E 00 DEFB $00 017F 00 DEFB $00 0180 3E DEFB $3E 0181 C6 DEFB $C6 0182 06 DEFB $06 0183 96 DEFB $96 0184 2E DEFB $2E 0185 00 DEFB $00 0186 FF DEFB $FF 0187 FF DEFB $FF 0188 FF DEFB $FF 0189 FF DEFB $FF 018A FF DEFB $FF 018B FF DEFB $FF 018C FF DEFB $FF 018D FF DEFB $FF 018E FF DEFB $FF 018F FF DEFB $FF 0190 FF DEFB $FF 0191 FF DEFB $FF 0192 FF DEFB $FF 0193 FF DEFB $FF 0194 FF DEFB $FF 0195 FF DEFB $FF 0196 FF DEFB $FF 0197 FF DEFB $FF 0198 FF DEFB $FF 0199 FF DEFB $FF 019A FF DEFB $FF 019B FF DEFB $FF 019C FF DEFB $FF 019D FF DEFB $FF 019E FF DEFB $FF 019F FF DEFB $FF 01A0 FF DEFB $FF 01A1 FF DEFB $FF 01A2 FF DEFB $FF 01A3 FF DEFB $FF 01A4 FF DEFB $FF 01A5 FF DEFB $FF 01A6 FF DEFB $FF 01A7 FF DEFB $FF 01A8 FF DEFB $FF 01A9 FF DEFB $FF 01AA FF DEFB $FF 01AB FF DEFB $FF 01AC FF DEFB $FF 01AD FF DEFB $FF 01AE FF DEFB $FF 01AF FF DEFB $FF 01B0 FF DEFB $FF 01B1 FF DEFB $FF 01B2 FF DEFB $FF 01B3 FF DEFB $FF 01B4 FF DEFB $FF 01B5 FF DEFB $FF 01B6 FF DEFB $FF 01B7 FF DEFB $FF 01B8 FF DEFB $FF 01B9 FF DEFB $FF 01BA FF DEFB $FF 01BB FF DEFB $FF 01BC FF DEFB $FF 01BD FF DEFB $FF 01BE FF DEFB $FF 01BF FF DEFB $FF 01C0 FF DEFB $FF 01C1 FF DEFB $FF 01C2 FF DEFB $FF 01C3 FF DEFB $FF 01C4 FF DEFB $FF 01C5 FF DEFB $FF 01C6 FF DEFB $FF 01C7 FF DEFB $FF 01C8 FF DEFB $FF 01C9 FF DEFB $FF 01CA FF DEFB $FF 01CB FF DEFB $FF 01CC FF DEFB $FF 01CD FF DEFB $FF 01CE FF DEFB $FF 01CF FF DEFB $FF 01D0 444952 DEFM "DIR" 01D3 20 DEFB $20 01D4 434F5059 DEFM "COPY" 01D8 20 DEFB $20 01D9 52454E DEFM "REN" 01DC 20 DEFB $20 01DD 455241 DEFM "ERA" 01E0 20 DEFB $20 01E1 54595045 DEFM "TYPE" 01E5 20 DEFB $20 01E6 5459504558 DEFM "TYPEX" 01EB 20 DEFB $20 01EC 5459504548 DEFM "TYPEH" 01F1 20 DEFB $20 01F2 5459504541 DEFM "TYPEA" 01F7 20 DEFB $20 01F8 52554E DEFM "RUN" 01FB 20 DEFB $20 01FC 45584954 DEFM "EXIT" 0200 20 DEFB $20 0201 53495A45 DEFM "SIZE" 0205 20 DEFB $20 0206 434845434B DEFM "CHECK" 020B 20 DEFB $20 020C 53544154 DEFM "STAT" 0210 20 DEFB $20 0211 55534552 DEFM "USER" 0215 20 DEFB $20 0216 5855534552 DEFM "XUSER" 021B 20 DEFB $20 021C 54455354 DEFM "TEST" 0220 20 DEFB $20 0221 534554 DEFM "SET" 0224 20 DEFB $20 0225 534554444952 DEFM "SETDIR" 022B 20 DEFB $20 022C 534554535953 DEFM "SETSYS" 0232 20 DEFB $20 0233 534554524F DEFM "SETRO" 0238 20 DEFB $20 0239 5345545752 DEFM "SETWR" 023E 20 DEFB $20 023F 5245434C41494D DEFM "RECLAIM" 0246 20 DEFB $20 0247 4449534B DEFM "DISK" 024B 20 DEFB $20 024C 47524F55 DEFM "GROUP" 0251 20 DEFB $20 0252 4C4F47 DEFM "LOG" 0255 20 DEFB $20 0256 5245534554 DEFM "RESET" 025B 20 DEFB $20 025C 4453 DEFM "DS" 025E 20 DEFB $20 025F 5350454544 DEFM "SPEED" 0264 20 DEFB $20 0265 53415645 DEFM "SAVE" 0269 20 DEFB $20 026A 4C4F4144 DEFM "LOAD" 026E 20 DEFB $20 026F 52454144 DEFM "READ" 0273 20 DEFB $20 0274 5752495445 DEFM "WRITE" 0279 20 DEFB $20 027A 524541444752 DEFM "READGR" 0280 20 DEFB $20 0281 57524954454752 DEFM "WRITEGR" 0288 20 DEFB $20 0289 44554D50 DEFM "DUMP" 028D 20 DEFB $20 028E 44554D5058 DEFM "DUMPX" 0293 20 DEFB $20 0294 44554D5048 DEFM "DUMPH" 0299 20 DEFB $20 029A 44554D5041 DEFM "DUMPA" 029F 20 DEFB $20 02A0 4D4F5645 DEFM "MOVE" 02A4 20 DEFB $20 02A5 46494C4C DEFM "FILL" 02A9 20 DEFB $20 02AA 434D DEFM "CM" 02AC 20 DEFB $20 02AD 534541524348 DEFM "SEARCH" 02B3 20 DEFB $20 02B4 4A50 DEFM "JP" 02B6 20 DEFB $20 02B7 4558 DEFM "EX" 02B9 20 DEFB $20 02BA 474F DEFM "GO" 02BC 20 DEFB $20 02BD 555231 DEFM "UR1" 02C0 20 DEFB $20 02C1 555232 DEFM "UR2" 02C4 20 DEFB $20 02C5 555233 DEFM "UR3" 02C8 20 DEFB $20 02C9 555234 DEFM "UR4" 02CC 20 DEFB $20 02CD 534F5254 DEFM "SORT" 02D1 20 DEFB $20 02D2 50415353 DEFM "PASS" 02D6 20 DEFB $20 02D7 3F DEFM "?" 02D8 20 DEFB $20 02D9 00 DEFB $00 02DA 00 DEFB $00 02DB 00 DEFB $00 02DC 00 DEFB $00 02DD 00 DEFB $00 02DE 00 DEFB $00 02DF 00 DEFB $00 02E0 00 DEFB $00 02E1 00 DEFB $00 02E2 00 DEFB $00 02E3 00 DEFB $00 02E4 00 DEFB $00 02E5 00 DEFB $00 02E6 00 DEFB $00 02E7 00 DEFB $00 02E8 00 DEFB $00 02E9 00 DEFB $00 02EA 00 DEFB $00 02EB 00 DEFB $00 02EC 00 DEFB $00 02ED 00 DEFB $00 02EE 00 DEFB $00 02EF 00 DEFB $00 02F0 FF DEFB $FF 02F1 50 DEFB $50 02F2 4F DEFB $4F 02F3 57 DEFB $57 02F4 45 DEFB $45 02F5 52 DEFB $52 02F6 00 DEFB $00 02F7 00 DEFB $00 02F8 00 DEFB $00 02F9 00 DEFB $00 02FA 00 DEFB $00 02FB 00 DEFB $00 02FC 00 DEFB $00 02FD 00 DEFB $00 02FE 00 DEFB $00 02FF 00 DEFB $00 0300 C3 DEFB $C3 0301 C5 DEFB $C5 0302 37 DEFB $37 0303 C3 DEFB $C3 0304 20 DEFB $20 0305 38 DEFB $38 0306 C3 DEFB $C3 0307 EF DEFB $EF 0308 38 DEFB $38 0309 C3 DEFB $C3 030A 03 DEFB $03 030B 36 DEFB $36 030C 8A DEFB $8A 030D 3B DEFB $3B 030E 8A DEFB $8A 030F 3B DEFB $3B 0310 210000 LD HL,$0000 0313 39 ADD HL,SP ; get stack address in HL 0314 221001 LD ($0110),HL ; ($0110) = stack address backup 0317 318A3B LD SP,$3B8A ; set stack at $3B8A 031A 2A0600 LD HL,($0006) ; HL = BDOS start address = $D106 031D 2E00 LD L,$00 031F E5 PUSH HL ; save $D100 on stack ### PUSH 1 ### 0320 3A6D01 LD A,($016D) ; A = $FF 0323 B7 OR A ; test if zero 0324 CA3103 JP Z,$0331 ; if zero, jump ---> ---> ---> --->| 0327 5F LD E,A ; E = $FF | 0328 3C INC A ; A = $00 | 0329 C22E03 JP NZ,$032E ; jump if non zero ---> --->| | 032C 1E08 LD E,$08 ; if zero E=$08 | | 032E 7C LD A,H ; <--- <--- <--- <--- <-----| A = $D1 032F 93 SUB E ; A=$D1-$08 if Z, A=$D1-($016D) if NZ *** A=$C9 *** 0330 67 LD H,A ; H = $C9 | 0331 221813 LD ($1318),HL ; <--- <--- <--- <--- <--- <--- <--| ($1318) = $C900 0334 3A1501 LD A,($0115) ; A = $00 0337 B7 OR A ; test if zero 0338 CA3E03 JP Z,$033E ; jump if zero ---> ---> --->| 033B 321913 LD ($1319),A ; | ($1319)=($0115) if NZ 033E 3A1701 LD A,($0117) ; A = $00 <--- <--- <--- <----| 0341 B7 OR A 0342 CA5F03 JP Z,$035F ; jump if zero ---> ---> --->| skip if ($0117) is NZ 0345 320000 LD ($0000),A ; ($0000)=($0117) 0348 4F LD C,A 0349 3EFF LD A,$FF 034B 91 SUB C ; A=$FF-($0117) 034C 4F LD C,A 034D 3E38 LD A,$38 034F 91 SUB C ; A=$38-[$FF-($0117)]=$XX 0350 1600 LD D,$00 0352 5F LD E,A 0353 3EC3 LD A,$C3 0355 12 LD (DE),A ; ($00XX)=$C3 0356 212904 LD HL,$0429 0359 13 INC DE 035A 7D LD A,L 035B 12 LD (DE),A 035C 13 INC DE 035D 7C LD A,H 035E 12 LD (DE),A ; ($00XX+1)=$0429 035F AF XOR A ; A = $00 <--- <--- <--- <----| 0360 32E004 LD ($04E0),A ; ($04E0) = $00 0363 67 LD H,A 0364 6F LD L,A ; HL = $0000 0365 22A82C LD ($2CA8),HL ; ($2CA8) = $0000 0368 0E0C LD C,$0C ; BDOS function #0C (Return Version Number) 036A CD0500 CALL $0005 ; Call BDOS function #0C 036D 7D LD A,L ; A=$00 036E 326704 LD ($0467),A ; ($0467)=$00 0371 7C LD A,H ; A=$00 0372 B5 OR L ; Z set 0373 32BD0D LD ($0DBD),A ; ($0DBD)=$00 0376 F5 PUSH AF ; (SP)=$00nn, Z set ### PUSH 2 ### 0377 329710 LD ($1097),A ; ($1097)=$00nn 037A 32AA0E LD ($0EAA),A ; ($0EAA)=$00nn 037D CA8A03 JP Z,$038A ; jump ---> ---> ---> ---> ---> --->| 0380 1EFF LD E,$FF ; required for BDOS $20 call | 0382 CD0133 CALL $3301 ; get user# (calls BDOS $20 func) | 0385 F680 OR $80 ; set bit 7 of user# | 0387 32AA0E LD ($0EAA),A ; save user# to ($0EAA) | 038A 2A0100 LD HL,($0001) ; HL=addr of BIOS WBOOT <--- <--- <-| 038D 110300 LD DE,$0003 0390 19 ADD HL,DE ; HL=addr of BIOS CONST 0391 22CC37 LD ($37CC),HL ; ($37CC)=addr of BIOS CONST 0394 19 ADD HL,DE ; HL=addr of BIOS CONIN 0395 222438 LD ($3824),HL ; ($3824)=addr of BIOS CONIN 0398 19 ADD HL,DE 0399 19 ADD HL,DE 039A 19 ADD HL,DE 039B 19 ADD HL,DE 039C 19 ADD HL,DE ; HL=addr of BIOS HOME 039D 22B632 LD ($32B6),HL ; ($32B6)=addr of BIOS HOME 03A0 19 ADD HL,DE ; HL=addr of BIOS SELDSK 03A1 22E730 LD ($30E7),HL ; ($30E7)=addr of BIOS SELDSK 03A4 19 ADD HL,DE ; HL=addr of BIOS SETTRK 03A5 223732 LD ($3237),HL ; ($3237)=addr of BIOS SETTRK 03A8 19 ADD HL,DE ; HL=addr of BIOS SETSEC 03A9 224527 LD ($2745),HL ; ($2745)=addr of BIOS SETSEC 03AC 19 ADD HL,DE 03AD 19 ADD HL,DE ; HL=addr of BIOS READ 03AE 22B833 LD ($33B8),HL ; ($33B8)=addr of BIOS READ 03B1 19 ADD HL,DE ; HL=addr of BIOS WRITE 03B2 22C933 LD ($33C9),HL ; ($33C9)=addr of BIOS WRITE 03B5 F1 POP AF ; A=$00 Z set ### POP 2 ### 03B6 19 ADD HL,DE 03B7 19 ADD HL,DE ; HL=addr of BIOS SECTRAN 03B8 222D27 LD ($272D),HL ; ($272D)=addr of BIOS SECTRAN 03BB E1 POP HL ; HL=$D100 (?) ### POP 1 ### 03BC C2D203 JP NZ,$03D2 ; ---> ---> ---> ---> ---> ---> --->| 03BF 326701 LD ($0167),A ; ($0167)=$00 03C2 E5 PUSH HL ; HL=$D100 (?) 03C3 110F00 LD DE,$000F 03C6 19 ADD HL,DE ; HL=$D10F 03C7 222D27 LD ($272D),HL ; ($272D)=$D10F 03CA E1 POP HL ; HL=$D100 (?) 03CB 111A00 LD DE,$001A 03CE 19 ADD HL,DE ; HL=$D11A 03CF 222827 LD ($2728),HL ; ($2728)=$D11A 03D2 2A0E03 LD HL,($030E) ; <--- <--- <--- <--- <--- <--- <---| HL=$3B8A 03D5 23 INC HL ; HL=$3B8B 03D6 EB EX DE,HL ; DE=$3B8B, HL=$001A 03D7 218000 LD HL,$0080 ; HL=$0080 03DA 46 LD B,(HL) ; B=($0080) = nr. of chars of all command parameters = N 03DB 78 LD A,B 03DC 327705 LD ($0577),A ; ($0577)=($0080) 03DF 23 INC HL ; HL=$0081 03E0 3A5D00 LD A,($005D) ; second byte of the FCB in page 1 which is the first char of the file name 03E3 FE20 CP $20 ; check if it is a space 03E5 C4BC37 CALL NZ,$37BC ; if not, call $37BC (move command parms ($0080 bytes) from $0081 to $3B8B). When done, DE=$3B8B+N, HL=$0081+N 03E8 EB EX DE,HL ; 03E9 3620 LD (HL),$20 ; ($3B8B+N)=$20 (add a space to end of relocated command parms... 03EB 23 INC HL 03EC 3600 LD (HL),$00 ; ...and a NULL character) 03EE 3A5C00 LD A,($005C) ; A = first byte of FCB stored in the first page = drive# (0 for default drive, 1-16 for A:...P:) 03F1 B7 OR A ; test if zero 03F2 CCBD35 CALL Z,$35BD ; if zero (code for default drive) call BDOS function $19 which returns A=($D442) 03F5 CD300E CALL $0E30 ; if drive# not betw 1 and 15, return with A=$10 03F8 325C00 LD ($005C),A ; store it at $005C 03FB 327525 LD ($2575),A ; store it at $2575 03FE 3A6A01 LD A,($016A) ; A=$01 (($016A)=drv# or what ???) 0401 321D36 LD ($361D),A ; ($361D)=$01 0404 B7 OR A 0405 FA2904 JP M,$0429 ; if bit 7 of ($016A) is 1, jump to $0429 ---> --->| 0408 B7 OR A ; | 0409 C20F04 JP NZ,$040F ; if not 0, jump ---> --->| | 040C 3A5C00 LD A,($005C) ; A=drive# in FCB | | 040F 32D03A LD ($3AD0),A ; <--- <--- <--- <--- <---| | 0412 CDC631 CALL $31C6 ; calls BDOS func $1A (Set DMA Address to $0080) | 0415 11D03A LD DE,$3AD0 ; | 0418 CD1033 CALL $3310 ; zeroes out $17 bytes starting at $3AD0+$0C=$3ADC | 041B CD9F31 CALL $319F ; | <<--- this will access disk !!! 041E 321D36 LD ($361D),A ; | 0421 C32904 JP $0429 ; jump ---> ---> ---> ---> ---> ---> ---> ---> --->| 0424 3EFF LD A,$FF ; | 0426 325C30 LD ($305C),A ; | 0429 318A3B LD SP,$3B8A ; <--- <--- <--- <--- <--- <--- <--- <--- <--- <---| 042C 3EFF LD A,$FF 042E 325739 LD ($3957),A 0431 3A5C30 LD A,($305C) 0434 6F LD L,A 0435 CD4E30 CALL $304E 0438 3A7705 LD A,($0577) 043B B7 OR A 043C C2D304 JP NZ,$04D3 043F 3A1E01 LD A,($011E) 0442 B7 OR A 0443 FAD304 JP M,$04D3 0446 A5 AND L 0447 C2D304 JP NZ,$04D3 044A CD6838 CALL $3868 ; ############### DATA AREA ################ 044D 0D0D09504F57455220332E3033206F6E2043502F4D DEFM "<CR><CR><TAB>POWER 3.03 on CP/M" 0462 A0 AND B 0463 CD680C CALL $0C68 0466 3E31 LD A,$31 0468 1F RRA 0469 1F RRA 046A 1F RRA 046B 1F RRA 046C E63F AND $3F 046E C630 ADD A,$30 0470 CDEF38 CALL $38EF 0473 3E2E LD A,$2E 0475 CDEF38 CALL $38EF 0478 3A6704 LD A,($0467) 047B E63F AND $3F 047D CDB42F CALL $2FB4 0480 CD6838 CALL $3868 0483 20312F320D0D2020436F707972696768742028632920313938312C203139383220627920504156454C204252454445520D09416C6C207269676874732072657365727665642E2030312F30332F3833 DEFM " 1/2<CR><CR> Copyright (c) 1981, 1982 by PAVEL BREDER<CR><TAB>All rights reserved. 01/03/83" 04D2 8D ADC A,L ; ########################################## 04D3 318A3B LD SP,$3B8A 04D6 CD610C CALL $0C61 04D9 3A0D01 LD A,($010D) 04DC 324834 LD ($3448),A ; ($3448)=($010D)=$FF 04DF 3E00 LD A,$00 04E1 B7 OR A 04E2 CAEF04 JP Z,$04EF 04E5 325C00 LD ($005C),A 04E8 3A1601 LD A,($0116) 04EB 3D DEC A 04EC CC4E30 CALL Z,$304E 04EF 3A1601 LD A,($0116) 04F2 3D DEC A 04F3 C2FA04 JP NZ,$04FA 04F6 2F CPL 04F7 325C30 LD ($305C),A 04FA CDB70D CALL $0DB7 04FD CA1405 JP Z,$0514 0500 3A8708 LD A,($0887) 0503 B7 OR A 0504 3A9710 LD A,($1097) 0507 C4FE32 CALL NZ,$32FE 050A 1EFF LD E,$FF 050C CD0133 CALL $3301 050F F680 OR $80 0511 329710 LD ($1097),A 0514 3A7705 LD A,($0577) 0517 3C INC A 0518 CAA21F JP Z,$1FA2 051B 215D00 LD HL,$005D 051E 060B LD B,$0B 0520 363F LD (HL),$3F 0522 23 INC HL 0523 05 DEC B 0524 C22005 JP NZ,$0520 0527 2A0E03 LD HL,($030E) 052A 22771E LD ($1E77),HL 052D 3EFF LD A,$FF 052F 326708 LD ($0867),A 0532 3C INC A 0533 32C51D LD ($1DC5),A 0536 32370B LD ($0B37),A 0539 32F910 LD ($10F9),A 053C 328215 LD ($1582),A 053F 325109 LD ($0951),A 0542 328708 LD ($0887),A 0545 328508 LD ($0885),A 0548 329F08 LD ($089F),A 054B 32750E LD ($0E75),A 054E 32E004 LD ($04E0),A 0551 32B70E LD ($0EB7),A 0554 32A616 LD ($16A6),A 0557 32681E LD ($1E68),A 055A 32C52F LD ($2FC5),A 055D 32D01A LD ($1AD0),A 0560 32E41E LD ($1EE4),A 0563 32D00F LD ($0FD0),A 0566 327C00 LD ($007C),A 0569 32131C LD ($1C13),A 056C 32141C LD ($1C14),A 056F 3A5C00 LD A,($005C) 0572 327525 LD ($2575),A 0575 4F LD C,A 0576 3E00 LD A,$00 0578 B7 OR A 0579 CA8405 JP Z,$0584 057C 3EFF LD A,$FF 057E 327705 LD ($0577),A 0581 C3D005 JP $05D0 0584 CD6338 CALL $3863 0587 AF XOR A 0588 320A39 LD ($390A),A 058B 322039 LD ($3920),A 058E 79 LD A,C 058F CD8035 CALL $3580 0592 CDB70D CALL $0DB7 0595 CAC705 JP Z,$05C7 0598 3AAA0E LD A,($0EAA) 059B E67F AND $7F 059D 4F LD C,A 059E 3A9710 LD A,($1097) 05A1 E67F AND $7F 05A3 47 LD B,A 05A4 B7 OR A 05A5 C2B405 JP NZ,$05B4 05A8 B9 CP C 05A9 C2B405 JP NZ,$05B4 05AC 3A1C01 LD A,($011C) 05AF B7 OR A 05B0 CAC705 JP Z,$05C7 05B3 78 LD A,B 05B4 C5 PUSH BC 05B5 CD972F CALL $2F97 05B8 C1 POP BC 05B9 79 LD A,C 05BA B8 CP B 05BB CAC705 JP Z,$05C7 05BE F5 PUSH AF 05BF CD6838 CALL $3868 05C2 AD XOR L 05C3 F1 POP AF 05C4 CD972F CALL $2F97 05C7 3A0701 LD A,($0107) 05CA CDEF38 CALL $38EF 05CD CD0336 CALL $3603 05D0 2A0E03 LD HL,($030E) 05D3 23 INC HL 05D4 E5 PUSH HL 05D5 CD860C CALL $0C86 05D8 E1 POP HL 05D9 CDA80D CALL $0DA8 05DC CD782F CALL $2F78 05DF CA0106 JP Z,$0601 05E2 FE5B CP $5B 05E4 CA0106 JP Z,$0601 05E7 23 INC HL 05E8 7E LD A,(HL) 05E9 CD2A0E CALL $0E2A 05EC 2B DEC HL 05ED C20806 JP NZ,$0608 05F0 7E LD A,(HL) 05F1 CD5130 CALL $3051 05F4 3A5C00 LD A,($005C) 05F7 327525 LD ($2575),A 05FA 23 INC HL 05FB CD782F CALL $2F78 05FE C20806 JP NZ,$0608 0601 AF XOR A 0602 327705 LD ($0577),A 0605 C3D304 JP $04D3 0608 E5 PUSH HL 0609 0600 LD B,$00 060B 11D001 LD DE,$01D0 060E AF XOR A 060F 322E06 LD ($062E),A 0612 7E LD A,(HL) 0613 CD1638 CALL $3816 0616 EB EX DE,HL 0617 BE CP (HL) 0618 CA2406 JP Z,$0624 061B 4F LD C,A 061C 7E LD A,(HL) 061D E67F AND $7F 061F CD1638 CALL $3816 0622 B9 CP C 0623 79 LD A,C 0624 EB EX DE,HL 0625 C29806 JP NZ,$0698 0628 FE20 CP $20 062A C28B06 JP NZ,$068B 062D 3E00 LD A,$00 062F B7 OR A 0630 CAB106 JP Z,$06B1 0633 3E00 LD A,$00 0635 B7 OR A 0636 C2B106 JP NZ,$06B1 0639 CD6838 CALL $3868 ; ############## DATA AREA ############### 063C 090770617373776F7264207265717569726564 DEFM "<TAB><BEL>password required" 064F 00 DEFB $00 ; ######################################## 0650 AF XOR A 0651 323406 LD ($0634),A 0654 CD792F CALL $2F79 0657 E5 PUSH HL 0658 118001 LD DE,$0180 065B CD7006 CALL $0670 065E CD6838 CALL $3868 ; ############## DATA AREA ############### 0661 09076261642070617373776F7264 DEFM "<TAB><BEL>bad password" 066F 00 DEFB $00 ; ######################################## 0670 1A LD A,(DE) 0671 B7 OR A 0672 CA8106 JP Z,$0681 0675 0F RRCA 0676 0F RRCA 0677 0F RRCA 0678 EE97 XOR $97 067A BE CP (HL) 067B C0 RET NZ 067C 13 INC DE 067D 23 INC HL 067E C37006 JP $0670 0681 7E LD A,(HL) 0682 FE20 CP $20 0684 C0 RET NZ 0685 323406 LD ($0634),A 0688 C3D304 JP $04D3 068B 1A LD A,(DE) 068C 07 RLCA 068D D29306 JP NC,$0693 0690 322E06 LD ($062E),A 0693 23 INC HL 0694 13 INC DE 0695 C31206 JP $0612 0698 1A LD A,(DE) 0699 B7 OR A 069A CADD0D JP Z,$0DDD 069D 13 INC DE 069E FE20 CP $20 06A0 C29806 JP NZ,$0698 06A3 EB EX DE,HL 06A4 CD792F CALL $2F79 06A7 EB EX DE,HL 06A8 CADD0D JP Z,$0DDD 06AB 04 INC B 06AC E1 POP HL 06AD E5 PUSH HL 06AE C30E06 JP $060E 06B1 78 LD A,B 06B2 3C INC A 06B3 32EF14 LD ($14EF),A 06B6 E5 PUSH HL 06B7 FE09 CP $09 06B9 C27507 JP NZ,$0775 06BC E5 PUSH HL 06BD 2A1813 LD HL,($1318) 06C0 222D13 LD ($132D),HL 06C3 25 DEC H 06C4 25 DEC H 06C5 75 LD (HL),L 06C6 22EA06 LD ($06EA),HL 06C9 23 INC HL 06CA 3620 LD (HL),$20 06CC E1 POP HL 06CD CD792F CALL $2F79 06D0 CA7507 JP Z,$0775 06D3 23 INC HL 06D4 7E LD A,(HL) 06D5 CD2A0E CALL $0E2A 06D8 CC782F CALL Z,$2F78 06DB CA7507 JP Z,$0775 06DE FE20 CP $20 06E0 C2D306 JP NZ,$06D3 06E3 CD792F CALL $2F79 06E6 CA7507 JP Z,$0775 06E9 110000 LD DE,$0000 06EC 13 INC DE 06ED 010000 LD BC,$0000 06F0 13 INC DE 06F1 7E LD A,(HL) 06F2 12 LD (DE),A 06F3 B7 OR A 06F4 CA6E07 JP Z,$076E 06F7 CD2A0E CALL $0E2A 06FA C20107 JP NZ,$0701 06FD CD782F CALL $2F78 0700 2B DEC HL 0701 23 INC HL 0702 13 INC DE 0703 0C INC C 0704 C3F106 JP $06F1 0707 4E LD C,(HL) 0708 23 INC HL 0709 46 LD B,(HL) 070A EB EX DE,HL 070B C5 PUSH BC 070C C9 RET 070D 34 INC (HL) 070E 76 HALT 070F 22191B LD ($1B19),HL 0712 23 INC HL 0713 0D DEC C 0714 74 LD (HL),H 0715 25 DEC H 0716 0E13 LD C,$13 0718 220F19 LD ($190F),HL 071B 221B5A LD ($5A1B),HL 071E 201C JR NZ,$073C 0720 04 INC B 0721 3820 JR C,$0743 0723 7C LD A,H 0724 29 ADD HL,HL 0725 1F RRA 0726 7C LD A,H 0727 29 ADD HL,HL 0728 17 RLA 0729 B2 OR D 072A 39 ADD HL,SP 072B 10B8 DJNZ $06E5 072D 15 DEC D 072E 16A7 LD D,$A7 0730 260A LD H,$0A 0732 8A ADC A,D 0733 1F RRA 0734 2B DEC HL 0735 EC1F2C CALL PE,$2C1F 0738 17 RLA 0739 201A JR NZ,$0755 073B BC CP H 073C 0D DEC C 073D 2ED3 LD L,$D3 073F 1F RRA 0740 2F CPL 0741 D9 EXX 0742 1F RRA 0743 30DF JR NC,$0724 0745 1F RRA 0746 31E51F LD SP,$1FE5 0749 215029 LD HL,$2950 074C 225029 LD ($2950),HL 074F 25 DEC H 0750 5D LD E,L 0751 2D DEC L 0752 264D LD H,$4D 0754 2D DEC L 0755 24 INC H 0756 55 LD D,L 0757 2D DEC L 0758 23 INC HL 0759 45 LD B,L 075A 2D DEC L 075B 27 DAA 075C 4F LD C,A 075D 2C INC L 075E 2803 JR Z,$0763 0760 2F CPL 0761 29 ADD HL,HL 0762 C42E2A CALL NZ,$2A2E 0765 68 LD L,B 0766 2D DEC L 0767 32DB0A LD ($0ADB),A 076A 33 INC SP 076B 50 LD D,B 076C 06FF LD B,$FF 076E 2AEA06 LD HL,($06EA) 0771 71 LD (HL),C 0772 09 ADD HL,BC 0773 23 INC HL 0774 70 LD (HL),B 0775 E1 POP HL 0776 D1 POP DE 0777 CD792F CALL $2F79 077A CADD07 JP Z,$07DD 077D FE3D CP $3D 077F C28E07 JP NZ,$078E 0782 3A5C00 LD A,($005C) 0785 32B70E LD ($0EB7),A 0788 CD782F CALL $2F78 078B CADD07 JP Z,$07DD 078E 23 INC HL 078F 7E LD A,(HL) 0790 2B DEC HL 0791 CD2A0E CALL $0E2A 0794 C2DD07 JP NZ,$07DD 0797 3AE004 LD A,($04E0) 079A B7 OR A 079B C2A407 JP NZ,$07A4 079E 3A5C00 LD A,($005C) 07A1 32E004 LD ($04E0),A 07A4 7E LD A,(HL) 07A5 CD300E CALL $0E30 07A8 325C00 LD ($005C),A 07AB 3AEF14 LD A,($14EF) 07AE FE1A CP $1A 07B0 CABC0D JP Z,$0DBC 07B3 CD4E30 CALL $304E 07B6 23 INC HL 07B7 CD782F CALL $2F78 07BA CADD07 JP Z,$07DD 07BD FE3D CP $3D 07BF C2DD07 JP NZ,$07DD 07C2 CD782F CALL $2F78 07C5 3A5C00 LD A,($005C) 07C8 32B70E LD ($0EB7),A 07CB CAD707 JP Z,$07D7 07CE 23 INC HL 07CF 7E LD A,(HL) 07D0 2B DEC HL 07D1 CD2A0E CALL $0E2A 07D4 CA8E07 JP Z,$078E 07D7 3AE004 LD A,($04E0) 07DA 325C00 LD ($005C),A 07DD EB EX DE,HL 07DE 210D07 LD HL,$070D 07E1 3AEF14 LD A,($14EF) 07E4 BE CP (HL) 07E5 7E LD A,(HL) 07E6 23 INC HL 07E7 CA0707 JP Z,$0707 07EA 23 INC HL 07EB 23 INC HL 07EC 3C INC A 07ED C2E107 JP NZ,$07E1 07F0 EB EX DE,HL 07F1 CDB70D CALL $0DB7 07F4 C20408 JP NZ,$0804 07F7 3AEF14 LD A,($14EF) 07FA FE12 CP $12 07FC DA0408 JP C,$0804 07FF FE16 CP $16 0801 DADD0D JP C,$0DDD 0804 CD792F CALL $2F79 0807 C4F321 CALL NZ,$21F3 080A 015C00 LD BC,$005C 080D C5 PUSH BC 080E C4AC21 CALL NZ,$21AC 0811 22362F LD ($2F36),HL 0814 E1 POP HL 0815 060B LD B,$0B 0817 23 INC HL 0818 7E LD A,(HL) 0819 FE3F CP $3F 081B CA2208 JP Z,$0822 081E 05 DEC B 081F C21708 JP NZ,$0817 0822 326B0E LD ($0E6B),A 0825 3AEF14 LD A,($14EF) 0828 FE1E CP $1E 082A CA472B JP Z,$2B47 082D FE1D CP $1D 082F CAAD2B JP Z,$2BAD 0832 FE2D CP $2D 0834 CA362C JP Z,$2C36 0837 F5 PUSH AF 0838 CD6338 CALL $3863 083B F1 POP AF 083C FE09 CP $09 083E CA5008 JP Z,$0850 0841 FE01 CP $01 0843 CA5B08 JP Z,$085B 0846 AF XOR A 0847 328708 LD ($0887),A 084A 328508 LD ($0885),A 084D C3E008 JP $08E0 0850 216500 LD HL,$0065 0853 3643 LD (HL),$43 0855 23 INC HL 0856 364F LD (HL),$4F 0858 23 INC HL 0859 364D LD (HL),$4D 085B CD8408 CALL $0884 085E CAE008 JP Z,$08E0 0861 7B LD A,E 0862 B7 OR A 0863 CA9708 JP Z,$0897 0866 3EFF LD A,$FF 0868 3C INC A 0869 326708 LD ($0867),A 086C 5F LD E,A 086D 3A6101 LD A,($0161) 0870 BB CP E 0871 7B LD A,E 0872 D28A08 JP NC,$088A 0875 3EFF LD A,$FF 0877 326708 LD ($0867),A 087A 3A8508 LD A,($0885) 087D B7 OR A 087E CAD304 JP Z,$04D3 0881 C35B08 JP $085B 0884 3E00 LD A,$00 0886 1E00 LD E,$00 0888 B3 OR E 0889 C9 RET 088A 32370B LD ($0B37),A 088D CDFE32 CALL $32FE 0890 3A6708 LD A,($0867) 0893 B7 OR A 0894 C2E008 JP NZ,$08E0 0897 3A8508 LD A,($0885) 089A B7 OR A 089B CAE008 JP Z,$08E0 089E 3E00 LD A,$00 08A0 5F LD E,A 08A1 3C INC A 08A2 329F08 LD ($089F),A 08A5 325C00 LD ($005C),A 08A8 3A4834 LD A,($3448) 08AB B7 OR A 08AC CAB608 JP Z,$08B6 08AF 3A6001 LD A,($0160) 08B2 B7 OR A 08B3 C2DC08 JP NZ,$08DC 08B6 D5 PUSH DE 08B7 0E18 LD C,$18 08B9 CD0500 CALL $0005 08BC D1 POP DE 08BD 011000 LD BC,$0010 08C0 0D DEC C 08C1 FAD304 JP M,$04D3 08C4 22D108 LD ($08D1),HL 08C7 CD702F CALL $2F70 08CA 78 LD A,B 08CB 04 INC B 08CC BB CP E 08CD C2C008 JP NZ,$08C0 08D0 210000 LD HL,$0000 08D3 CD702F CALL $2F70 08D6 D29E08 JP NC,$089E 08D9 C3E008 JP $08E0 08DC BB CP E 08DD CAD304 JP Z,$04D3 08E0 2A0E03 LD HL,($030E) 08E3 22771E LD ($1E77),HL 08E6 210000 LD HL,$0000 08E9 22F40F LD ($0FF4),HL 08EC 22B709 LD ($09B7),HL 08EF CD4E30 CALL $304E 08F2 3E00 LD A,$00 08F4 B7 OR A 08F5 C23F31 JP NZ,$313F 08F8 115C00 LD DE,$005C 08FB 1A LD A,(DE) 08FC 32063B LD ($3B06),A 08FF CD7B31 CALL $317B 0902 CD3030 CALL $3030 0905 54 LD D,H 0906 5D LD E,L 0907 210900 LD HL,$0009 090A 19 ADD HL,DE 090B 46 LD B,(HL) 090C 3AEF14 LD A,($14EF) 090F 23 INC HL 0910 4E LD C,(HL) 0911 FE14 CP $14 0913 CA3C09 JP Z,$093C 0916 FE15 CP $15 0918 C22209 JP NZ,$0922 091B 78 LD A,B 091C EEFF XOR $FF 091E 47 LD B,A 091F C33C09 JP $093C 0922 41 LD B,C 0923 FE12 CP $12 0925 CA1B09 JP Z,$091B 0928 FE13 CP $13 092A CA3C09 JP Z,$093C 092D FE09 CP $09 092F CA5009 JP Z,$0950 0932 3A6B0E LD A,($0E6B) 0935 FE3F CP $3F 0937 C25009 JP NZ,$0950 093A AF XOR A 093B 47 LD B,A 093C DA9F09 JP C,$099F 093F 3A6501 LD A,($0165) 0942 B7 OR A 0943 FA4B09 JP M,$094B 0946 79 LD A,C 0947 17 RLA 0948 DA9F09 JP C,$099F 094B 78 LD A,B 094C 17 RLA 094D DA9F09 JP C,$099F 0950 3E00 LD A,$00 0952 B7 OR A 0953 CA7309 JP Z,$0973 0956 F5 PUSH AF 0957 D5 PUSH DE 0958 11F6FF LD DE,$FFF6 095B 19 ADD HL,DE 095C E60F AND $0F 095E 5F LD E,A 095F 1600 LD D,$00 0961 19 ADD HL,DE 0962 D1 POP DE 0963 F1 POP AF 0964 7E LD A,(HL) 0965 FA6F09 JP M,$096F 0968 17 RLA 0969 DA9F09 JP C,$099F 096C C37309 JP $0973 096F 17 RLA 0970 D29F09 JP NC,$099F 0973 2A771E LD HL,($1E77) 0976 060B LD B,$0B 0978 13 INC DE 0979 3600 LD (HL),$00 097B 23 INC HL 097C 3600 LD (HL),$00 097E 23 INC HL 097F 1A LD A,(DE) 0980 77 LD (HL),A 0981 23 INC HL 0982 13 INC DE 0983 05 DEC B 0984 C27F09 JP NZ,$097F 0987 22771E LD ($1E77),HL 098A EB EX DE,HL 098B 2AB709 LD HL,($09B7) 098E 23 INC HL 098F 22B709 LD ($09B7),HL 0992 29 ADD HL,HL 0993 19 ADD HL,DE 0994 24 INC H 0995 EB EX DE,HL 0996 2A1813 LD HL,($1318) 0999 CD2C2B CALL $2B2C 099C DA5E2F JP C,$2F5E 099F 2A771E LD HL,($1E77) 09A2 36FF LD (HL),$FF 09A4 23 INC HL 09A5 36FF LD (HL),$FF 09A7 CDA731 CALL $31A7 09AA C20209 JP NZ,$0902 09AD 2A0E03 LD HL,($030E) 09B0 23 INC HL 09B1 7E LD A,(HL) 09B2 3C INC A 09B3 CA8231 JP Z,$3182 09B6 211D00 LD HL,$001D 09B9 23 INC HL 09BA 22D809 LD ($09D8),HL 09BD 2A0E03 LD HL,($030E) 09C0 EB EX DE,HL 09C1 2A771E LD HL,($1E77) 09C4 222F0A LD ($0A2F),HL 09C7 226A0A LD ($0A6A),HL 09CA 23 INC HL 09CB 23 INC HL 09CC 010D00 LD BC,$000D 09CF 73 LD (HL),E 09D0 23 INC HL 09D1 72 LD (HL),D 09D2 23 INC HL 09D3 EB EX DE,HL 09D4 09 ADD HL,BC 09D5 EB EX DE,HL 09D6 E5 PUSH HL 09D7 210000 LD HL,$0000 09DA 2B DEC HL 09DB 22D809 LD ($09D8),HL 09DE 7D LD A,L 09DF B4 OR H 09E0 E1 POP HL 09E1 C2CF09 JP NZ,$09CF 09E4 2AB709 LD HL,($09B7) 09E7 23 INC HL 09E8 22560A LD ($0A56),HL 09EB 2B DEC HL 09EC 7D LD A,L 09ED B4 OR H 09EE CAF00A JP Z,$0AF0 09F1 3A0401 LD A,($0104) 09F4 B7 OR A 09F5 CAF00A JP Z,$0AF0 09F8 CD702F CALL $2F70 09FB B4 OR H 09FC CAF00A JP Z,$0AF0 09FF 7D LD A,L 0A00 F601 OR $01 0A02 6F LD L,A 0A03 22460A LD ($0A46),HL 0A06 23 INC HL 0A07 22590A LD ($0A59),HL 0A0A EB EX DE,HL 0A0B 2A460A LD HL,($0A46) 0A0E 7B LD A,E 0A0F 95 SUB L 0A10 6F LD L,A 0A11 7A LD A,D 0A12 9C SBC A,H 0A13 67 LD H,A 0A14 22430A LD ($0A43),HL 0A17 EB EX DE,HL 0A18 2A460A LD HL,($0A46) 0A1B 19 ADD HL,DE 0A1C 222C0A LD ($0A2C),HL 0A1F 3E0D LD A,$0D 0A21 CD690A CALL $0A69 0A24 F2550A JP P,$0A55 0A27 2A430A LD HL,($0A43) 0A2A EB EX DE,HL 0A2B 211E00 LD HL,$001E 0A2E 01033D LD BC,$3D03 0A31 29 ADD HL,HL 0A32 09 ADD HL,BC 0A33 EB EX DE,HL 0A34 29 ADD HL,HL 0A35 09 ADD HL,BC 0A36 4E LD C,(HL) 0A37 1A LD A,(DE) 0A38 EB EX DE,HL 0A39 71 LD (HL),C 0A3A 12 LD (DE),A 0A3B 23 INC HL 0A3C 13 INC DE 0A3D 4E LD C,(HL) 0A3E 1A LD A,(DE) 0A3F EB EX DE,HL 0A40 71 LD (HL),C 0A41 12 LD (DE),A 0A42 111D00 LD DE,$001D 0A45 210100 LD HL,$0001 0A48 7B LD A,E 0A49 95 SUB L 0A4A 6F LD L,A 0A4B 7A LD A,D 0A4C 9C SBC A,H 0A4D 67 LD H,A 0A4E FA550A JP M,$0A55 0A51 B5 OR L 0A52 C2140A JP NZ,$0A14 0A55 111E00 LD DE,$001E 0A58 211E00 LD HL,$001E 0A5B 23 INC HL 0A5C 7B LD A,E 0A5D 95 SUB L 0A5E 7A LD A,D 0A5F 9C SBC A,H 0A60 F2070A JP P,$0A07 0A63 2A460A LD HL,($0A46) 0A66 C3F809 JP $09F8 0A69 01033D LD BC,$3D03 0A6C 29 ADD HL,HL 0A6D 09 ADD HL,BC 0A6E EB EX DE,HL 0A6F 29 ADD HL,HL 0A70 09 ADD HL,BC 0A71 EB EX DE,HL 0A72 4E LD C,(HL) 0A73 23 INC HL 0A74 46 LD B,(HL) 0A75 EB EX DE,HL 0A76 5E LD E,(HL) 0A77 23 INC HL 0A78 56 LD D,(HL) 0A79 EB EX DE,HL 0A7A 5F LD E,A 0A7B 0A LD A,(BC) 0A7C FEFF CP $FF 0A7E C8 RET Z 0A7F E5 PUSH HL 0A80 D5 PUSH DE 0A81 110B00 LD DE,$000B 0A84 19 ADD HL,DE 0A85 7E LD A,(HL) 0A86 D1 POP DE 0A87 E1 POP HL 0A88 17 RLA 0A89 3E00 LD A,$00 0A8B CE00 ADC A,$00 0A8D 57 LD D,A 0A8E 3A0401 LD A,($0104) 0A91 FE01 CP $01 0A93 CACB0A JP Z,$0ACB 0A96 FE03 CP $03 0A98 CAB60A JP Z,$0AB6 0A9B FE05 CP $05 0A9D D2CB0A JP NC,$0ACB 0AA0 E5 PUSH HL 0AA1 210B00 LD HL,$000B 0AA4 09 ADD HL,BC 0AA5 7E LD A,(HL) 0AA6 E1 POP HL 0AA7 17 RLA 0AA8 3E00 LD A,$00 0AAA CE00 ADC A,$00 0AAC 92 SUB D 0AAD C0 RET NZ 0AAE 3A0401 LD A,($0104) 0AB1 FE02 CP $02 0AB3 CACB0A JP Z,$0ACB 0AB6 E5 PUSH HL 0AB7 C5 PUSH BC 0AB8 160A LD D,$0A 0ABA 7B LD A,E 0ABB 92 SUB D 0ABC 5F LD E,A 0ABD 23 INC HL 0ABE 03 INC BC 0ABF 15 DEC D 0AC0 C2BD0A JP NZ,$0ABD 0AC3 CDCB0A CALL $0ACB 0AC6 C1 POP BC 0AC7 E1 POP HL 0AC8 C0 RET NZ 0AC9 1E0A LD E,$0A 0ACB 7E LD A,(HL) 0ACC E67F AND $7F 0ACE 57 LD D,A 0ACF 0A LD A,(BC) 0AD0 E67F AND $7F 0AD2 BA CP D 0AD3 03 INC BC 0AD4 23 INC HL 0AD5 C0 RET NZ 0AD6 1D DEC E 0AD7 C2CB0A JP NZ,$0ACB 0ADA C9 RET 0ADB CD792F CALL $2F79 0ADE FE30 CP $30 0AE0 DABA3A JP C,$3ABA 0AE3 FE3A CP $3A 0AE5 D2BA3A JP NC,$3ABA 0AE8 D630 SUB $30 0AEA 320401 LD ($0104),A 0AED C3D304 JP $04D3 0AF0 2A560A LD HL,($0A56) 0AF3 29 ADD HL,HL 0AF4 EB EX DE,HL 0AF5 2A771E LD HL,($1E77) 0AF8 19 ADD HL,DE 0AF9 22771E LD ($1E77),HL 0AFC CD8408 CALL $0884 0AFF CA050B JP Z,$0B05 0B02 CD6338 CALL $3863 0B05 3AEF14 LD A,($14EF) 0B08 FE01 CP $01 0B0A CA150B JP Z,$0B15 0B0D 3A6B0E LD A,($0E6B) 0B10 FE3F CP $3F 0B12 C2360E JP NZ,$0E36 0B15 3A5C00 LD A,($005C) 0B18 CD8035 CALL $3580 0B1B 3A8708 LD A,($0887) 0B1E B7 OR A 0B1F C2360B JP NZ,$0B36 0B22 3A9710 LD A,($1097) 0B25 E67F AND $7F 0B27 C2380B JP NZ,$0B38 0B2A 3AAA0E LD A,($0EAA) 0B2D E67F AND $7F 0B2F C2360B JP NZ,$0B36 0B32 3A1C01 LD A,($011C) 0B35 B7 OR A 0B36 3E00 LD A,$00 0B38 F5 PUSH AF 0B39 C4972F CALL NZ,$2F97 0B3C CD7E35 CALL $357E 0B3F F1 POP AF 0B40 CA480B JP Z,$0B48 0B43 FE0A CP $0A 0B45 DCED38 CALL C,$38ED 0B48 3AEF14 LD A,($14EF) 0B4B FE01 CP $01 0B4D 3A6401 LD A,($0164) 0B50 C2580B JP NZ,$0B58 0B53 B7 OR A 0B54 F2580B JP P,$0B58 0B57 3C INC A 0B58 E67F AND $7F 0B5A 32C52F LD ($2FC5),A 0B5D 2AF40F LD HL,($0FF4) 0B60 EB EX DE,HL 0B61 2AB709 LD HL,($09B7) 0B64 CD2C2B CALL $2B2C 0B67 DA3C0E JP C,$0E3C 0B6A 2AF40F LD HL,($0FF4) 0B6D 29 ADD HL,HL 0B6E EB EX DE,HL 0B6F 2A2F0A LD HL,($0A2F) 0B72 23 INC HL 0B73 23 INC HL 0B74 19 ADD HL,DE 0B75 5E LD E,(HL) 0B76 23 INC HL 0B77 56 LD D,(HL) 0B78 EB EX DE,HL 0B79 E5 PUSH HL 0B7A 2AF40F LD HL,($0FF4) 0B7D 23 INC HL 0B7E 22F40F LD ($0FF4),HL 0B81 E1 POP HL 0B82 3AEF14 LD A,($14EF) 0B85 FE01 CP $01 0B87 C29E0B JP NZ,$0B9E 0B8A 3A0E01 LD A,($010E) 0B8D B7 OR A 0B8E CAAD0B JP Z,$0BAD 0B91 FA9E0B JP M,$0B9E 0B94 CD6838 CALL $3868 0B97 2020 JR NZ,$0BB9 0B99 20A0 JR NZ,$0B3B 0B9B C3AD0B JP $0BAD 0B9E E5 PUSH HL 0B9F 2AF40F LD HL,($0FF4) 0BA2 0E30 LD C,$30 0BA4 CDED2F CALL $2FED 0BA7 E1 POP HL 0BA8 3E3D LD A,$3D 0BAA CDEF38 CALL $38EF 0BAD E5 PUSH HL 0BAE 110A00 LD DE,$000A 0BB1 19 ADD HL,DE 0BB2 7E LD A,(HL) 0BB3 32D60B LD ($0BD6),A 0BB6 23 INC HL 0BB7 3A7001 LD A,($0170) 0BBA B7 OR A 0BBB 7E LD A,(HL) 0BBC 32E80B LD ($0BE8),A 0BBF E1 POP HL 0BC0 CAC70B JP Z,$0BC7 0BC3 B7 OR A 0BC4 FC680C CALL M,$0C68 0BC7 B7 OR A 0BC8 3E28 LD A,$28 0BCA FCEF38 CALL M,$38EF 0BCD F4ED38 CALL P,$38ED 0BD0 23 INC HL 0BD1 23 INC HL 0BD2 CD180C CALL $0C18 0BD5 3E43 LD A,$43 0BD7 B7 OR A 0BD8 3E2A LD A,$2A 0BDA FCEF38 CALL M,$38EF 0BDD FAF20B JP M,$0BF2 0BE0 3A7001 LD A,($0170) 0BE3 B7 OR A 0BE4 C2E90B JP NZ,$0BE9 0BE7 3E4F LD A,$4F 0BE9 B7 OR A 0BEA 3E29 LD A,$29 0BEC FCEF38 CALL M,$38EF 0BEF F4ED38 CALL P,$38ED 0BF2 CD610C CALL $0C61 0BF5 E5 PUSH HL 0BF6 D5 PUSH DE 0BF7 2AB709 LD HL,($09B7) 0BFA EB EX DE,HL 0BFB 2AF40F LD HL,($0FF4) 0BFE CD2C2B CALL $2B2C 0C01 D1 POP DE 0C02 E1 POP HL 0C03 D23C0E JP NC,$0E3C 0C06 3AC52F LD A,($2FC5) 0C09 3D DEC A 0C0A 32C52F LD ($2FC5),A 0C0D CA020B JP Z,$0B02 0C10 3E7C LD A,$7C 0C12 CDEF38 CALL $38EF 0C15 C35D0B JP $0B5D 0C18 E5 PUSH HL 0C19 D1 POP DE 0C1A E5 PUSH HL 0C1B C1 POP BC 0C1C 3A6B01 LD A,($016B) 0C1F E60F AND $0F 0C21 CA390C JP Z,$0C39 0C24 E5 PUSH HL 0C25 D5 PUSH DE 0C26 5F LD E,A 0C27 1600 LD D,$00 0C29 19 ADD HL,DE 0C2A 7E LD A,(HL) 0C2B 17 RLA 0C2C DA370C JP C,$0C37 0C2F 2B DEC HL 0C30 7E LD A,(HL) 0C31 17 RLA 0C32 3F CCF 0C33 D2370C JP NC,$0C37 0C36 AF XOR A 0C37 D1 POP DE 0C38 E1 POP HL 0C39 F5 PUSH AF 0C3A 3E08 LD A,$08 0C3C CD510C CALL $0C51 0C3F F1 POP AF 0C40 3E2E LD A,$2E 0C42 CA4C0C JP Z,$0C4C 0C45 3E3E LD A,$3E 0C47 D24C0C JP NC,$0C4C 0C4A 3E3C LD A,$3C 0C4C CDEF38 CALL $38EF 0C4F 3E03 LD A,$03 0C51 F5 PUSH AF 0C52 7E LD A,(HL) 0C53 12 LD (DE),A 0C54 02 LD (BC),A 0C55 CDEF38 CALL $38EF 0C58 23 INC HL 0C59 13 INC DE 0C5A 03 INC BC 0C5B F1 POP AF 0C5C 3D DEC A 0C5D C2510C JP NZ,$0C51 0C60 C9 RET 0C61 E5 PUSH HL 0C62 217801 LD HL,$0178 0C65 C36C0C JP $0C6C ; ### THIS PRINTS A STRING TO CONSOLE. ; ### String must be stored starting at 0171 ; ### and 0170 must contain its length-1 ; ############################################# 0C68 E5 PUSH HL ; **1** save HL on stack 0C69 217001 LD HL,$0170 ; load (string address - 1) in it (this should be = (string length-1)) 0C6C C5 PUSH BC ; **2** save BC on stack 0C6D 46 LD B,(HL) ; load size of string in B 0C6E 23 INC HL ; increment string pointer <--- <--- <--- <---| 0C6F 05 DEC B ; decrement counter | 0C70 FA820C JP M,$0C82 ; jump if bit7 of B is 1 ---> --->| | 0C73 E5 PUSH HL ; | 0C74 D5 PUSH DE ; | 0C75 C5 PUSH BC ; | 0C76 5E LD E,(HL) ; | 0C77 0E02 LD C,$02 ; | 0C79 CD0500 CALL $0005 ; call BDOS function #2 (Console Output) | 0C7C C1 POP BC ; | 0C7D D1 POP DE ; | 0C7E E1 POP HL ; | 0C7F C36E0C JP $0C6E ; jump ---> ---> ---> ---> ---> ---> ---> --->| 0C82 C1 POP BC ; **2** restore BC | 0C83 E1 POP HL ; **1** restore HL 0C84 AF XOR A ; zero out contents of A 0C85 C9 RET 0C86 5E LD E,(HL) 0C87 1C INC E 0C88 23 INC HL 0C89 7E LD A,(HL) 0C8A 1D DEC E 0C8B C8 RET Z 0C8C FE5B CP $5B 0C8E C2880C JP NZ,$0C88 0C91 CD782F CALL $2F78 0C94 C8 RET Z 0C95 FE5D CP $5D 0C97 C8 RET Z 0C98 01910C LD BC,$0C91 0C9B C5 PUSH BC 0C9C CD1638 CALL $3816 0C9F FE2B CP $2B 0CA1 CAD00C JP Z,$0CD0 0CA4 FE2D CP $2D 0CA6 CAC90C JP Z,$0CC9 0CA9 FE22 CP $22 0CAB CA400D JP Z,$0D40 0CAE FE31 CP $31 0CB0 DAFF0C JP C,$0CFF 0CB3 FE3A CP $3A 0CB5 D2FF0C JP NC,$0CFF 0CB8 E60F AND $0F 0CBA 47 LD B,A 0CBB 3A6401 LD A,($0164) 0CBE B7 OR A 0CBF 78 LD A,B 0CC0 F2C50C JP P,$0CC5 0CC3 F680 OR $80 0CC5 326401 LD ($0164),A 0CC8 C9 RET 0CC9 CDD80C CALL $0CD8 0CCC 325109 LD ($0951),A 0CCF C9 RET 0CD0 CDD80C CALL $0CD8 0CD3 C680 ADD A,$80 0CD5 C3CC0C JP $0CCC 0CD8 23 INC HL 0CD9 7E LD A,(HL) 0CDA CD1638 CALL $3816 0CDD 0E09 LD C,$09 0CDF FE52 CP $52 0CE1 CAFD0C JP Z,$0CFD 0CE4 0C INC C 0CE5 FE53 CP $53 0CE7 CAFD0C JP Z,$0CFD 0CEA 0C INC C 0CEB FE58 CP $58 0CED CAFD0C JP Z,$0CFD 0CF0 FE31 CP $31 0CF2 DABA3A JP C,$3ABA 0CF5 FE39 CP $39 0CF7 D2BA3A JP NC,$3ABA 0CFA E60F AND $0F 0CFC C9 RET 0CFD 79 LD A,C 0CFE C9 RET 0CFF E5 PUSH HL 0D00 FE56 CP $56 0D02 CA9A0D JP Z,$0D9A 0D05 FE52 CP $52 0D07 CA620D JP Z,$0D62 0D0A FE53 CP $53 0D0C CA5C0D JP Z,$0D5C 0D0F FE54 CP $54 0D11 CA680D JP Z,$0D68 0D14 FE50 CP $50 0D16 CA560D JP Z,$0D56 0D19 FE55 CP $55 0D1B CA6E0D JP Z,$0D6E 0D1E FE58 CP $58 0D20 CA7A0D JP Z,$0D7A 0D23 FE4D CP $4D 0D25 CA850D JP Z,$0D85 0D28 FE51 CP $51 0D2A CA940D JP Z,$0D94 0D2D FE24 CP $24 0D2F CA8E0D JP Z,$0D8E 0D32 E1 POP HL 0D33 FE41 CP $41 0D35 D8 RET C 0D36 FE45 CP $45 0D38 D0 RET NC 0D39 E60F AND $0F 0D3B 3D DEC A 0D3C 326201 LD ($0162),A 0D3F C9 RET 0D40 23 INC HL 0D41 7E LD A,(HL) 0D42 FE22 CP $22 0D44 C8 RET Z 0D45 B7 OR A 0D46 2B DEC HL 0D47 C8 RET Z 0D48 23 INC HL 0D49 FE0E CP $0E 0D4B F5 PUSH AF 0D4C CC6338 CALL Z,$3863 0D4F F1 POP AF 0D50 C4EF38 CALL NZ,$38EF 0D53 C3400D JP $0D40 0D56 210501 LD HL,$0105 0D59 C3A30D JP $0DA3 0D5C 216501 LD HL,$0165 0D5F C3A30D JP $0DA3 0D62 216301 LD HL,$0163 0D65 C3A30D JP $0DA3 0D68 216601 LD HL,$0166 0D6B C3A30D JP $0DA3 0D6E CDB70D CALL $0DB7 0D71 CAA60D JP Z,$0DA6 0D74 218708 LD HL,$0887 0D77 C3A50D JP $0DA5 0D7A 328508 LD ($0885),A 0D7D 3A5C00 LD A,($005C) 0D80 32E004 LD ($04E0),A 0D83 E1 POP HL 0D84 C9 RET 0D85 216B01 LD HL,$016B 0D88 7E LD A,(HL) 0D89 C680 ADD A,$80 0D8B C3A50D JP $0DA5 0D8E 21F002 LD HL,$02F0 0D91 C39D0D JP $0D9D 0D94 21F910 LD HL,$10F9 0D97 C3A50D JP $0DA5 0D9A 216701 LD HL,$0167 0D9D CDB70D CALL $0DB7 0DA0 CAA50D JP Z,$0DA5 0DA3 7E LD A,(HL) 0DA4 2F CPL 0DA5 77 LD (HL),A 0DA6 E1 POP HL 0DA7 C9 RET 0DA8 3A0501 LD A,($0105) 0DAB B7 OR A 0DAC C8 RET Z 0DAD 3C INC A 0DAE 322039 LD ($3920),A 0DB1 3E20 LD A,$20 0DB3 320A39 LD ($390A),A 0DB6 C9 RET 0DB7 3ABD0D LD A,($0DBD) 0DBA B7 OR A 0DBB C9 RET 0DBC 3E31 LD A,$31 0DBE FE16 CP $16 0DC0 DADD0D JP C,$0DDD 0DC3 3A5C00 LD A,($005C) 0DC6 CD300E CALL $0E30 0DC9 210100 LD HL,$0001 0DCC CDD30D CALL $0DD3 0DCF C3D304 JP $04D3 0DD2 29 ADD HL,HL 0DD3 3D DEC A 0DD4 C2D20D JP NZ,$0DD2 0DD7 EB EX DE,HL 0DD8 0E25 LD C,$25 0DDA C30500 JP $0005 0DDD AF XOR A 0DDE 327705 LD ($0577),A 0DE1 CD6838 CALL $3868 ; ############## DATA AREA ############### 0DE4 0907696E636F72726563742C20666F72206C697374206F6620636F6D6D616E647320656E7465723A DEFM "<TAB><BEL>incorrect, for list of commands enter:" 0E0C A0 DEFB $A0 ; '\x20' with bit 7 set ; ######################################## 0E0D AF XOR A 0E0E 21D001 LD HL,$01D0 0E11 23 INC HL 0E12 BE CP (HL) 0E13 C2110E JP NZ,$0E11 0E16 2B DEC HL 0E17 2B DEC HL 0E18 7E LD A,(HL) 0E19 FE20 CP $20 0E1B C2170E JP NZ,$0E17 0E1E 23 INC HL 0E1F 7E LD A,(HL) 0E20 B7 OR A 0E21 CAD304 JP Z,$04D3 0E24 CDEF38 CALL $38EF 0E27 C31E0E JP $0E1E 0E2A FE3A CP $3A 0E2C C8 RET Z 0E2D FE3B CP $3B 0E2F C9 RET 0E30 E60F AND $0F 0E32 C0 RET NZ ; return if drive# is betw 1 and 15 0E33 3E10 LD A,$10 ; if not, make drive#=$10 0E35 C9 RET 0E36 210100 LD HL,$0001 0E39 22F40F LD ($0FF4),HL 0E3C 3AEF14 LD A,($14EF) 0E3F FE01 CP $01 0E41 C24D0E JP NZ,$0E4D 0E44 CD8408 CALL $0884 0E47 CAD304 JP Z,$04D3 0E4A C35B08 JP $085B 0E4D 2A771E LD HL,($1E77) 0E50 23 INC HL 0E51 22771E LD ($1E77),HL 0E54 E5 PUSH HL 0E55 2AF40F LD HL,($0FF4) 0E58 2B DEC HL 0E59 7D LD A,L 0E5A B4 OR H 0E5B E1 POP HL 0E5C C2710E JP NZ,$0E71 0E5F 23 INC HL 0E60 3601 LD (HL),$01 0E62 23 INC HL 0E63 3631 LD (HL),$31 0E65 23 INC HL 0E66 3620 LD (HL),$20 0E68 23 INC HL 0E69 77 LD (HL),A 0E6A 3E4D LD A,$4D 0E6C FE3F CP $3F 0E6E C29F0E JP NZ,$0E9F 0E71 CDA80D CALL $0DA8 0E74 3E70 LD A,$70 0E76 FE2A CP $2A 0E78 C2900E JP NZ,$0E90 0E7B 2A771E LD HL,($1E77) 0E7E 23 INC HL 0E7F 3602 LD (HL),$02 0E81 23 INC HL 0E82 3631 LD (HL),$31 0E84 23 INC HL 0E85 362D LD (HL),$2D 0E87 23 INC HL 0E88 3620 LD (HL),$20 0E8A 23 INC HL 0E8B 3600 LD (HL),$00 0E8D C39F0E JP $0E9F 0E90 CD6838 CALL $3868 ; ############## DATA AREA ############### 0E93 0D73656C6563743F DEFM "<CR>select?" 0E9B A0 DEFB $A0 ; '\x20' with bit 7 set ; ######################################## 0E9C CD0336 CALL $3603 0E9F 2A771E LD HL,($1E77) 0EA2 23 INC HL 0EA3 7E LD A,(HL) 0EA4 2B DEC HL 0EA5 B7 OR A 0EA6 CAD304 JP Z,$04D3 0EA9 3E80 LD A,$80 0EAB 32681E LD ($1E68),A 0EAE 3AEF14 LD A,($14EF) 0EB1 FE02 CP $02 0EB3 C2480F JP NZ,$0F48 0EB6 3E00 LD A,$00 0EB8 B7 OR A 0EB9 C2DC0E JP NZ,$0EDC 0EBC CD6838 CALL $3868 ; ############## DATA AREA ############### 0EBF 0D0D64657374696E6174696F6E20647269766520 DEFM "<CR><CR>destination drive " 0ED3 BA DEFB $BA ; '\x3A' with bit 7 set (':') ; ######################################## 0ED4 CD1038 CALL $3810 0ED7 FE0D CP $0D 0ED9 CAD304 JP Z,$04D3 0EDC CD300E CALL $0E30 0EDF 322A3B LD ($3B2A),A 0EE2 5F LD E,A 0EE3 215C00 LD HL,$005C 0EE6 56 LD D,(HL) 0EE7 73 LD (HL),E 0EE8 D5 PUSH DE 0EE9 CD4E30 CALL $304E 0EEC D1 POP DE 0EED 3AF308 LD A,($08F3) 0EF0 B7 OR A 0EF1 C23F31 JP NZ,$313F 0EF4 72 LD (HL),D 0EF5 7A LD A,D 0EF6 BB CP E 0EF7 C2660F JP NZ,$0F66 0EFA 3AF910 LD A,($10F9) 0EFD B7 OR A 0EFE C2660F JP NZ,$0F66 0F01 3A9710 LD A,($1097) 0F04 5F LD E,A 0F05 3A681E LD A,($1E68) 0F08 BB CP E 0F09 C22A0F JP NZ,$0F2A 0F0C CD6838 CALL $3868 ; ############## DATA AREA ############### 0F0F 0302636F707920746F2073616D652064726976 DEFM "\x03\x02copy to same driv" 0F22 E5 DEFB $E5 ; '\x65' with bit 7 set ('e') ; ######################################## 0F23 AF XOR A 0F24 32B70E LD ($0EB7),A 0F27 C3AE0E JP $0EAE 0F2A CD6838 CALL $3868 ; ############## DATA AREA ############### 0F2D 0D2843296F7079206F7220284D296F7665 DEFM "<CR>(C)opy or (M)ove" 0F3E BA DEFB $BA ; '\x3A' with bit 7 set (':') ; ######################################## 0F3F CD1038 CALL $3810 0F42 32C51D LD ($1DC5),A 0F45 C3660F JP $0F66 0F48 F5 PUSH AF 0F49 AF XOR A 0F4A 322A3B LD ($3B2A),A 0F4D 32F910 LD ($10F9),A 0F50 F1 POP AF 0F51 FE04 CP $04 0F53 C2660F JP NZ,$0F66 0F56 CD6838 CALL $3868 ; ############## DATA AREA ############### 0F59 0D0745524153 DEFM "<CR><BEL>ERAS" 0F5F C5 DEFB $C5 ; '\x45' with bit 7 set ('E') ; ######################################## 0F60 CD1B1C CALL $1C1B 0F63 C2D304 JP NZ,$04D3 0F66 CD6338 CALL $3863 0F69 CDA80D CALL $0DA8 0F6C 3AEF14 LD A,($14EF) 0F6F FE02 CP $02 0F71 C2770F JP NZ,$0F77 0F74 320A39 LD ($390A),A 0F77 3A2A3B LD A,($3B2A) 0F7A B7 OR A 0F7B C2810F JP NZ,$0F81 0F7E 3A063B LD A,($3B06) 0F81 F5 PUSH AF 0F82 CD9E32 CALL $329E 0F85 2A771E LD HL,($1E77) 0F88 23 INC HL 0F89 23 INC HL 0F8A 229D0F LD ($0F9D),HL 0F8D AF XOR A 0F8E 6F LD L,A 0F8F 67 LD H,A 0F90 320210 LD ($1002),A 0F93 220F10 LD ($100F),HL 0F96 225610 LD ($1056),HL 0F99 224A10 LD ($104A),HL 0F9C 218C3B LD HL,$3B8C 0F9F CD792F CALL $2F79 0FA2 229D0F LD ($0F9D),HL 0FA5 CA7C10 JP Z,$107C 0FA8 110000 LD DE,$0000 0FAB EB EX DE,HL 0FAC 1A LD A,(DE) 0FAD D630 SUB $30 0FAF A7 AND A 0FB0 FAE20F JP M,$0FE2 0FB3 FE0A CP $0A 0FB5 3F CCF 0FB6 DACF0F JP C,$0FCF 0FB9 13 INC DE 0FBA 29 ADD HL,HL 0FBB E5 PUSH HL 0FBC 29 ADD HL,HL 0FBD 29 ADD HL,HL 0FBE C1 POP BC 0FBF 09 ADD HL,BC 0FC0 4F LD C,A 0FC1 0600 LD B,$00 0FC3 09 ADD HL,BC 0FC4 C3AC0F JP $0FAC 0FC7 3EFF LD A,$FF 0FC9 32D00F LD ($0FD0),A 0FCC C3A80F JP $0FA8 0FCF 3EFF LD A,$FF 0FD1 3C INC A 0FD2 C8 RET Z 0FD3 EB EX DE,HL 0FD4 23 INC HL 0FD5 7E LD A,(HL) 0FD6 B7 OR A 0FD7 CA7C10 JP Z,$107C 0FDA FE20 CP $20 0FDC C2D40F JP NZ,$0FD4 0FDF C39F0F JP $0F9F 0FE2 3AD00F LD A,($0FD0) 0FE5 3C INC A 0FE6 C8 RET Z 0FE7 3A681E LD A,($1E68) 0FEA B7 OR A 0FEB FAEF0F JP M,$0FEF 0FEE C0 RET NZ 0FEF EB EX DE,HL 0FF0 1B DEC DE 0FF1 E5 PUSH HL 0FF2 D5 PUSH DE 0FF3 210200 LD HL,$0002 0FF6 CD2C2B CALL $2B2C 0FF9 D1 POP DE 0FFA E1 POP HL 0FFB 229D0F LD ($0F9D),HL 0FFE DAD40F JP C,$0FD4 1001 3E00 LD A,$00 1003 FE2D CP $2D 1005 C21210 JP NZ,$1012 1008 EB EX DE,HL 1009 23 INC HL 100A 225610 LD ($1056),HL 100D EB EX DE,HL 100E 111200 LD DE,$0012 1011 13 INC DE 1012 CD792F CALL $2F79 1015 7E LD A,(HL) 1016 320210 LD ($1002),A 1019 FE2D CP $2D 101B C22F10 JP NZ,$102F 101E CD782F CALL $2F78 1021 229D0F LD ($0F9D),HL 1024 C22F10 JP NZ,$102F 1027 E5 PUSH HL 1028 2AF40F LD HL,($0FF4) 102B 225610 LD ($1056),HL 102E E1 POP HL 102F EB EX DE,HL 1030 220F10 LD ($100F),HL 1033 EB EX DE,HL 1034 13 INC DE 1035 6B LD L,E 1036 62 LD H,D 1037 29 ADD HL,HL 1038 EB EX DE,HL 1039 2A2F0A LD HL,($0A2F) 103C 19 ADD HL,DE 103D 5E LD E,(HL) 103E 23 INC HL 103F 56 LD D,(HL) 1040 EB EX DE,HL 1041 23 INC HL 1042 7E LD A,(HL) 1043 2B DEC HL 1044 B6 OR (HL) 1045 C25510 JP NZ,$1055 1048 E5 PUSH HL 1049 210100 LD HL,$0001 104C 23 INC HL 104D 224A10 LD ($104A),HL 1050 EB EX DE,HL 1051 E1 POP HL 1052 73 LD (HL),E 1053 23 INC HL 1054 72 LD (HL),D 1055 210000 LD HL,$0000 1058 7D LD A,L 1059 B4 OR H 105A CA9C0F JP Z,$0F9C 105D EB EX DE,HL 105E 2A0F10 LD HL,($100F) 1061 23 INC HL 1062 220F10 LD ($100F),HL 1065 E5 PUSH HL 1066 CD2C2B CALL $2B2C 1069 E1 POP HL 106A 5D LD E,L 106B 54 LD D,H 106C DA3410 JP C,$1034 106F 2B DEC HL 1070 220F10 LD ($100F),HL 1073 210000 LD HL,$0000 1076 225610 LD ($1056),HL 1079 C39C0F JP $0F9C 107C 3A681E LD A,($1E68) 107F B7 OR A 1080 FA8410 JP M,$1084 1083 C0 RET NZ 1084 210000 LD HL,$0000 1087 22291A LD ($1A29),HL 108A 2C INC L 108B 22F40F LD ($0FF4),HL 108E 2A2F0A LD HL,($0A2F) 1091 23 INC HL 1092 23 INC HL 1093 22771E LD ($1E77),HL 1096 3E80 LD A,$80 1098 B7 OR A 1099 C4FE32 CALL NZ,$32FE 109C 2A0E03 LD HL,($030E) 109F CD6338 CALL $3863 10A2 010D00 LD BC,$000D 10A5 C3A910 JP $10A9 10A8 09 ADD HL,BC 10A9 23 INC HL 10AA 7E LD A,(HL) 10AB 56 LD D,(HL) 10AC 3C INC A 10AD CAD304 JP Z,$04D3 10B0 2B DEC HL 10B1 5E LD E,(HL) 10B2 E5 PUSH HL 10B3 2AF40F LD HL,($0FF4) 10B6 E5 PUSH HL 10B7 CD2C2B CALL $2B2C 10BA 7C LD A,H 10BB B5 OR L 10BC D1 POP DE 10BD E1 POP HL 10BE C2A810 JP NZ,$10A8 10C1 23 INC HL 10C2 77 LD (HL),A 10C3 2B DEC HL 10C4 77 LD (HL),A 10C5 E5 PUSH HL 10C6 EB EX DE,HL 10C7 23 INC HL 10C8 22F40F LD ($0FF4),HL 10CB E1 POP HL 10CC 3A2A3B LD A,($3B2A) 10CF B7 OR A 10D0 CADC10 JP Z,$10DC 10D3 CD8035 CALL $3580 10D6 CD6838 CALL $3868 10D9 183A JR $1115 10DB BD CP L 10DC 3A5C00 LD A,($005C) 10DF CD7B35 CALL $357B 10E2 11073B LD DE,$3B07 10E5 012B3B LD BC,$3B2B 10E8 23 INC HL 10E9 23 INC HL 10EA CD1C0C CALL $0C1C 10ED 2E18 LD L,$18 10EF AF XOR A 10F0 02 LD (BC),A 10F1 12 LD (DE),A 10F2 03 INC BC 10F3 13 INC DE 10F4 2D DEC L 10F5 C2F010 JP NZ,$10F0 10F8 3E00 LD A,$00 10FA B7 OR A 10FB CA7611 JP Z,$1176 10FE 212B3B LD HL,$3B2B 1101 060B LD B,$0B 1103 363F LD (HL),$3F 1105 23 INC HL 1106 05 DEC B 1107 C20311 JP NZ,$1103 110A CD6838 CALL $3868 ; ############## DATA AREA ############### 110D 096E6577206E616D65 DEFM "<TAB>new name" 1116 BA DEFB $BA ; '\x3A' with bit 7 set (':') ; ######################################## 1117 CD0336 CALL $3603 111A 2A771E LD HL,($1E77) 111D 23 INC HL 111E CD782F CALL $2F78 1121 CA4311 JP Z,$1143 1124 CDF321 CALL $21F3 1127 C23D11 JP NZ,$113D 112A CD6838 CALL $3868 ; ############## DATA AREA ############### 112D 0720426164206E616D650D09 DEFM "<BEL> Bad name<CR><TAB>" 1139 89 DEFB $89 ; '\x09' with bit 7 set ('TAB') ; ######################################## 113A C30A11 JP $110A 113D 012A3B LD BC,$3B2A 1140 CDAC21 CALL $21AC 1143 CD6838 CALL $3868 1146 0D DEC C 1147 2020 JR NZ,$1169 1149 2020 JR NZ,$116B 114B A0 AND B 114C 11073B LD DE,$3B07 114F 212B3B LD HL,$3B2B 1152 060B LD B,$0B 1154 7E LD A,(HL) 1155 FE3F CP $3F 1157 C25B11 JP NZ,$115B 115A 1A LD A,(DE) 115B CDEF38 CALL $38EF 115E 4F LD C,A 115F 1A LD A,(DE) 1160 B7 OR A 1161 79 LD A,C 1162 F26711 JP P,$1167 1165 F680 OR $80 1167 77 LD (HL),A 1168 13 INC DE 1169 23 INC HL 116A 78 LD A,B 116B FE04 CP $04 116D 3E2E LD A,$2E 116F CCEF38 CALL Z,$38EF 1172 05 DEC B 1173 C25411 JP NZ,$1154 1176 21333B LD HL,$3B33 1179 11F43A LD DE,$3AF4 117C 0603 LD B,$03 117E CDBC37 CALL $37BC 1181 3AEF14 LD A,($14EF) 1184 FE03 CP $03 1186 CA9311 JP Z,$1193 1189 3A6301 LD A,($0163) 118C B7 OR A 118D C41B1C CALL NZ,$1C1B 1190 C29610 JP NZ,$1096 1193 11063B LD DE,$3B06 1196 3AEF14 LD A,($14EF) 1199 FE18 CP $18 119B CA7419 JP Z,$1974 119E FE0B CP $0B 11A0 C4D631 CALL NZ,$31D6 11A3 3A2A3B LD A,($3B2A) 11A6 B7 OR A 11A7 C2AD1C JP NZ,$1CAD 11AA 67 LD H,A 11AB 6F LD L,A 11AC 32C52F LD ($2FC5),A 11AF 227B1F LD ($1F7B),HL 11B2 21F000 LD HL,$00F0 11B5 223C1E LD ($1E3C),HL 11B8 CDC631 CALL $31C6 11BB 11063B LD DE,$3B06 11BE 210F3B LD HL,$3B0F 11C1 3AEF14 LD A,($14EF) 11C4 4F LD C,A 11C5 FE04 CP $04 11C7 CA441A JP Z,$1A44 11CA FE0C CP $0C 11CC CA6513 JP Z,$1365 11CF FE0B CP $0B 11D1 CA601B JP Z,$1B60 11D4 FE03 CP $03 11D6 CA791A JP Z,$1A79 11D9 FE11 CP $11 11DB CA7E1C JP Z,$1C7E 11DE FE14 CP $14 11E0 CA9B1C JP Z,$1C9B 11E3 FE15 CP $15 11E5 CAA11C JP Z,$1CA1 11E8 23 INC HL 11E9 FE13 CP $13 11EB CA9B1C JP Z,$1C9B 11EE FE12 CP $12 11F0 CAA11C JP Z,$1CA1 11F3 FE09 CP $09 11F5 C25713 JP NZ,$1357 11F8 D5 PUSH DE 11F9 CD6338 CALL $3863 11FC CD601B CALL $1B60 11FF D1 POP DE 1200 CD1033 CALL $3310 1203 2A273B LD HL,($3B27) 1206 EB EX DE,HL 1207 2AEA06 LD HL,($06EA) 120A 24 INC H 120B D5 PUSH DE 120C E5 PUSH HL 120D EB EX DE,HL 120E 21FF12 LD HL,$12FF 1211 3A7525 LD A,($2575) 1214 324813 LD ($1348),A 1217 065F LD B,$5F 1219 CDBC37 CALL $37BC 121C E1 POP HL 121D E5 PUSH HL 121E 2E16 LD L,$16 1220 3600 LD (HL),$00 1222 23 INC HL 1223 74 LD (HL),H 1224 2E2B LD L,$2B 1226 3625 LD (HL),$25 1228 23 INC HL 1229 74 LD (HL),H 122A 2E3E LD L,$3E 122C 3638 LD (HL),$38 122E 23 INC HL 122F 74 LD (HL),H 1230 E1 POP HL 1231 D1 POP DE 1232 E5 PUSH HL 1233 D5 PUSH DE 1234 25 DEC H 1235 25 DEC H 1236 0E80 LD C,$80 1238 CD401C CALL $1C40 123B D1 POP DE 123C CD2C2B CALL $2B2C 123F DA5E2F JP C,$2F5E 1242 AF XOR A 1243 32D01A LD ($1AD0),A 1246 E1 POP HL 1247 25 DEC H 1248 7E LD A,(HL) 1249 B7 OR A 124A C4782F CALL NZ,$2F78 124D CA6212 JP Z,$1262 1250 23 INC HL 1251 7E LD A,(HL) 1252 2B DEC HL 1253 CD2A0E CALL $0E2A 1256 C26212 JP NZ,$1262 1259 7E LD A,(HL) 125A CD300E CALL $0E30 125D 326A12 LD ($126A),A 1260 23 INC HL 1261 23 INC HL 1262 3AEB06 LD A,($06EB) 1265 3C INC A 1266 47 LD B,A 1267 0E80 LD C,$80 1269 3E00 LD A,$00 126B 02 LD (BC),A 126C CDAC21 CALL $21AC 126F AF XOR A 1270 1E05 LD E,$05 1272 02 LD (BC),A 1273 03 INC BC 1274 1D DEC E 1275 C27212 JP NZ,$1272 1278 CD782F CALL $2F78 127B 0B DEC BC 127C 23 INC HL 127D 7E LD A,(HL) 127E 2B DEC HL 127F CA8F12 JP Z,$128F 1282 CD2A0E CALL $0E2A 1285 C28F12 JP NZ,$128F 1288 7E LD A,(HL) 1289 CD300E CALL $0E30 128C 02 LD (BC),A 128D 23 INC HL 128E 23 INC HL 128F CDAC21 CALL $21AC 1292 AF XOR A 1293 1E05 LD E,$05 1295 02 LD (BC),A 1296 03 INC BC 1297 1D DEC E 1298 C29512 JP NZ,$1295 129B 21063B LD HL,$3B06 129E 115C00 LD DE,$005C 12A1 CDBA37 CALL $37BA 12A4 3AF002 LD A,($02F0) 12A7 B7 OR A 12A8 FAE412 JP M,$12E4 12AB C2B112 JP NZ,$12B1 12AE 3A7525 LD A,($2575) 12B1 21D03A LD HL,$3AD0 12B4 77 LD (HL),A 12B5 112A3B LD DE,$3B2A 12B8 D5 PUSH DE 12B9 CDBA37 CALL $37BA 12BC D1 POP DE 12BD CD1033 CALL $3310 12C0 CD9F31 CALL $319F 12C3 C2E412 JP NZ,$12E4 12C6 CDAF31 CALL $31AF 12C9 21F002 LD HL,$02F0 12CC 54 LD D,H 12CD 5D LD E,L 12CE 06FF LD B,$FF 12D0 23 INC HL 12D1 7E LD A,(HL) 12D2 04 INC B 12D3 B7 OR A 12D4 C2D012 JP NZ,$12D0 12D7 78 LD A,B 12D8 32F002 LD ($02F0),A 12DB CDC931 CALL $31C9 12DE CD8535 CALL $3585 12E1 CDF131 CALL $31F1 12E4 115C00 LD DE,$005C 12E7 CDD631 CALL $31D6 12EA 2AEA06 LD HL,($06EA) 12ED 24 INC H 12EE 24 INC H 12EF F9 LD SP,HL 12F0 210000 LD HL,$0000 12F3 E5 PUSH HL 12F4 2AEA06 LD HL,($06EA) 12F7 24 INC H 12F8 110001 LD DE,$0100 12FB CDB01F CALL $1FB0 12FE E9 JP (HL) 12FF D5 PUSH DE 1300 0E1A LD C,$1A 1302 CD0500 CALL $0005 1305 115C00 LD DE,$005C 1308 0E14 LD C,$14 130A CD0500 CALL $0005 130D D1 POP DE 130E 218000 LD HL,$0080 1311 19 ADD HL,DE 1312 EB EX DE,HL 1313 B7 OR A 1314 CAFF12 JP Z,$12FF 1317 2100C2 LD HL,$C200 131A 2E00 LD L,$00 131C 25 DEC H 131D 25 DEC H 131E 7E LD A,(HL) 131F 118000 LD DE,$0080 1322 12 LD (DE),A 1323 47 LD B,A 1324 23 INC HL 1325 13 INC DE 1326 7E LD A,(HL) 1327 12 LD (DE),A 1328 05 DEC B 1329 F22413 JP P,$1324 132C 210000 LD HL,$0000 132F 2E80 LD L,$80 1331 25 DEC H 1332 115C00 LD DE,$005C 1335 0624 LD B,$24 1337 7E LD A,(HL) 1338 12 LD (DE),A 1339 23 INC HL 133A 13 INC DE 133B 05 DEC B 133C C23713 JP NZ,$1337 133F 118000 LD DE,$0080 1342 0E1A LD C,$1A 1344 CD0500 CALL $0005 1347 1E00 LD E,$00 1349 1D DEC E 134A 0E0E LD C,$0E 134C CD0500 CALL $0005 134F C30001 JP $0100 1352 3AFD3A LD A,($3AFD) 1355 B7 OR A 1356 C9 RET 1357 CD6838 CALL $3868 135A 0D DEC C 135B 8D ADC A,L 135C 2A3C1E LD HL,($1E3C) 135F 7D LD A,L 1360 E60F AND $0F 1362 322F15 LD ($152F),A 1365 3AEF14 LD A,($14EF) 1368 B7 OR A 1369 F27113 JP P,$1371 136C E67F AND $7F 136E C30F14 JP $140F 1371 11063B LD DE,$3B06 1374 CD1132 CALL $3211 1377 B7 OR A 1378 C2F619 JP NZ,$19F6 137B 3AEF14 LD A,($14EF) 137E FE05 CP $05 1380 CA0414 JP Z,$1404 1383 FE0C CP $0C 1385 CA0414 JP Z,$1404 1388 3A0C01 LD A,($010C) 138B B7 OR A 138C CA0414 JP Z,$1404 138F 3A263B LD A,($3B26) 1392 3D DEC A 1393 6F LD L,A 1394 2600 LD H,$00 1396 3AFA3A LD A,($3AFA) 1399 3C INC A 139A 4F LD C,A 139B CD401C CALL $1C40 139E 7B LD A,E 139F 32D132 LD ($32D1),A 13A2 3AFB3A LD A,($3AFB) 13A5 4F LD C,A 13A6 3A123B LD A,($3B12) 13A9 A1 AND C 13AA 4F LD C,A 13AB 45 LD B,L 13AC 21163B LD HL,$3B16 13AF CABC13 JP Z,$13BC 13B2 3E10 LD A,$10 13B4 B7 OR A 13B5 1F RRA 13B6 0D DEC C 13B7 C2B413 JP NZ,$13B4 13BA 80 ADD A,B 13BB 47 LD B,A 13BC 05 DEC B 13BD FACB13 JP M,$13CB 13C0 23 INC HL 13C1 CD5213 CALL $1352 13C4 CABC13 JP Z,$13BC 13C7 23 INC HL 13C8 C3BC13 JP $13BC 13CB 7E LD A,(HL) 13CC 5E LD E,(HL) 13CD 320A34 LD ($340A),A 13D0 CD5213 CALL $1352 13D3 57 LD D,A 13D4 CAD913 JP Z,$13D9 13D7 23 INC HL 13D8 56 LD D,(HL) 13D9 7A LD A,D 13DA 320B34 LD ($340B),A 13DD CDC632 CALL $32C6 13E0 CD0827 CALL $2708 13E3 CD6838 CALL $3868 13E6 0D DEC C 13E7 0D DEC C 13E8 8D ADC A,L 13E9 CDF628 CALL $28F6 13EC CDED38 CALL $38ED 13EF 21063B LD HL,$3B06 13F2 7E LD A,(HL) 13F3 CD7B35 CALL $357B 13F6 23 INC HL 13F7 CD180C CALL $0C18 13FA CDED38 CALL $38ED 13FD 7E LD A,(HL) 13FE CDB42F CALL $2FB4 1401 CD6338 CALL $3863 1404 218000 LD HL,$0080 1407 3AEF14 LD A,($14EF) 140A FE0C CP $0C 140C CA8815 JP Z,$1588 140F F5 PUSH AF 1410 FE06 CP $06 1412 CA1C14 JP Z,$141C 1415 FE07 CP $07 1417 CA1C14 JP Z,$141C 141A FE08 CP $08 141C CC8914 CALL Z,$1489 141F F1 POP AF 1420 FE06 CP $06 1422 CAC214 JP Z,$14C2 1425 FE07 CP $07 1427 CAC214 JP Z,$14C2 142A FE08 CP $08 142C CA3C14 JP Z,$143C 142F FE05 CP $05 1431 CA3A15 JP Z,$153A 1434 3E06 LD A,$06 1436 32EF14 LD ($14EF),A 1439 C30F14 JP $140F 143C 7E LD A,(HL) 143D CDA021 CALL $21A0 1440 DABA14 JP C,$14BA 1443 CD5015 CALL $1550 1446 CD6314 CALL $1463 1449 3AEF14 LD A,($14EF) 144C E67F AND $7F 144E FE06 CP $06 1450 C23C14 JP NZ,$143C 1453 7D LD A,L 1454 E60F AND $0F 1456 CABF14 JP Z,$14BF 1459 3A1801 LD A,($0118) 145C 3D DEC A 145D CCED38 CALL Z,$38ED 1460 C33C14 JP $143C 1463 3AEF14 LD A,($14EF) 1466 E67F AND $7F 1468 FE06 CP $06 146A C8 RET Z 146B 3A1801 LD A,($0118) 146E 3D DEC A 146F CA8514 JP Z,$1485 1472 CDED38 CALL $38ED 1475 3AEF14 LD A,($14EF) 1478 E67F AND $7F 147A FE07 CP $07 147C C28514 JP NZ,$1485 147F 7D LD A,L 1480 E603 AND $03 1482 CCED38 CALL Z,$38ED 1485 7D LD A,L 1486 E60F AND $0F 1488 C0 RET NZ 1489 CD6338 CALL $3863 148C 3AEF14 LD A,($14EF) 148F B7 OR A 1490 F29914 JP P,$1499 1493 22A82C LD ($2CA8),HL 1496 C3A614 JP $14A6 1499 E5 PUSH HL 149A 2A3C1E LD HL,($1E3C) 149D D5 PUSH DE 149E 111000 LD DE,$0010 14A1 19 ADD HL,DE 14A2 D1 POP DE 14A3 223C1E LD ($1E3C),HL 14A6 CDBA2F CALL $2FBA 14A9 AF XOR A 14AA 32C52F LD ($2FC5),A 14AD CD7E35 CALL $357E 14B0 CDED38 CALL $38ED 14B3 3AEF14 LD A,($14EF) 14B6 B7 OR A 14B7 F8 RET M 14B8 E1 POP HL 14B9 C9 RET 14BA 3E2E LD A,$2E 14BC C34314 JP $1443 14BF CD8914 CALL $1489 14C2 7E LD A,(HL) 14C3 E5 PUSH HL 14C4 CDB42F CALL $2FB4 14C7 E1 POP HL 14C8 3AEF14 LD A,($14EF) 14CB E67F AND $7F 14CD FE06 CP $06 14CF CADB14 JP Z,$14DB 14D2 CD5315 CALL $1553 14D5 CD6314 CALL $1463 14D8 C3C214 JP $14C2 14DB 3A1801 LD A,($0118) 14DE 3D DEC A 14DF CAED14 JP Z,$14ED 14E2 3C INC A 14E3 CCED38 CALL Z,$38ED 14E6 7D LD A,L 14E7 3C INC A 14E8 E603 AND $03 14EA CCED38 CALL Z,$38ED 14ED 23 INC HL 14EE 3E1D LD A,$1D 14F0 B7 OR A 14F1 F21015 JP P,$1510 14F4 1B DEC DE 14F5 7A LD A,D 14F6 B3 OR E 14F7 C21015 JP NZ,$1510 14FA D5 PUSH DE 14FB 7D LD A,L 14FC E60F AND $0F 14FE CA1615 JP Z,$1516 1501 7D LD A,L 1502 EE10 XOR $10 1504 E60F AND $0F 1506 2F CPL 1507 E60F AND $0F 1509 3C INC A 150A 5F LD E,A 150B 19 ADD HL,DE 150C D1 POP DE 150D C31615 JP $1516 1510 7D LD A,L 1511 E60F AND $0F 1513 C2C214 JP NZ,$14C2 1516 3A1801 LD A,($0118) 1519 3D DEC A 151A C22615 JP NZ,$1526 151D CD6838 CALL $3868 1520 0D DEC C 1521 2D DEC L 1522 2D DEC L 1523 2D DEC L 1524 2D DEC L 1525 BA CP D 1526 CDED38 CALL $38ED 1529 D5 PUSH DE 152A 11F0FF LD DE,$FFF0 152D 19 ADD HL,DE 152E 1E00 LD E,$00 1530 AF XOR A 1531 57 LD D,A 1532 322F15 LD ($152F),A 1535 19 ADD HL,DE 1536 D1 POP DE 1537 C33C14 JP $143C 153A 7E LD A,(HL) 153B FE1A CP $1A 153D CA4615 JP Z,$1546 1540 CD5015 CALL $1550 1543 C33A15 JP $153A 1546 3AEF14 LD A,($14EF) 1549 B7 OR A 154A F29610 JP P,$1096 154D C3D304 JP $04D3 1550 CDEF38 CALL $38EF 1553 23 INC HL 1554 3AEF14 LD A,($14EF) 1557 B7 OR A 1558 F26E15 JP P,$156E 155B E5 PUSH HL 155C 2A7B1F LD HL,($1F7B) 155F 2B DEC HL 1560 227B1F LD ($1F7B),HL 1563 7C LD A,H 1564 B5 OR L 1565 EB EX DE,HL 1566 E1 POP HL 1567 C0 RET NZ 1568 22A82C LD ($2CA8),HL 156B C3D304 JP $04D3 156E 3A8215 LD A,($1582) 1571 B7 OR A 1572 C27D15 JP NZ,$157D 1575 3A0601 LD A,($0106) 1578 FE0D CP $0D 157A CAEC19 JP Z,$19EC 157D 7D LD A,L 157E B7 OR A 157F C0 RET NZ 1580 E1 POP HL 1581 3E00 LD A,$00 1583 B7 OR A 1584 C0 RET NZ 1585 C36513 JP $1365 1588 7E LD A,(HL) 1589 32C52F LD ($2FC5),A 158C E5 PUSH HL 158D 2A7B1F LD HL,($1F7B) 1590 7C LD A,H 1591 E680 AND $80 1593 F5 PUSH AF 1594 29 ADD HL,HL 1595 3AC52F LD A,($2FC5) 1598 85 ADD A,L 1599 6F LD L,A 159A F1 POP AF 159B CAA615 JP Z,$15A6 159E 7C LD A,H 159F EEA0 XOR $A0 15A1 67 LD H,A 15A2 7D LD A,L 15A3 EE97 XOR $97 15A5 6F LD L,A 15A6 227B1F LD ($1F7B),HL 15A9 E1 POP HL 15AA 3AEF14 LD A,($14EF) 15AD B7 OR A 15AE C8 RET Z 15AF CDC537 CALL $37C5 15B2 CD5315 CALL $1553 15B5 C38815 JP $1588 15B8 CD792F CALL $2F79 15BB CD1638 CALL $3816 15BE 325816 LD ($1658),A 15C1 CD4E30 CALL $304E 15C4 CD6838 CALL $3868 ; ############## DATA AREA ############### 15C7 0305636865636B73756D20262074657374 DEFM "\x03\x05checksum & test" 15D8 8D DEFB $8D ; '\x0D' with bit 7 set ('CR') ; ######################################## 15D9 3E80 LD A,$80 15DB 32E41E LD ($1EE4),A 15DE 3D DEC A 15DF 32A616 LD ($16A6),A 15E2 CDBF26 CALL $26BF 15E5 EB EX DE,HL 15E6 36FF LD (HL),$FF 15E8 23 INC HL 15E9 22B316 LD ($16B3),HL 15EC 115C00 LD DE,$005C 15EF 060B LD B,$0B 15F1 3A0A01 LD A,($010A) 15F4 13 INC DE 15F5 12 LD (DE),A 15F6 05 DEC B 15F7 C2F415 JP NZ,$15F4 15FA 0615 LD B,$15 15FC AF XOR A 15FD 320A39 LD ($390A),A 1600 13 INC DE 1601 12 LD (DE),A 1602 05 DEC B 1603 C20016 JP NZ,$1600 1606 115C00 LD DE,$005C 1609 CD9F31 CALL $319F 160C CA2F16 JP Z,$162F 160F CD3030 CALL $3030 1612 3AD60B LD A,($0BD6) 1615 B7 OR A 1616 F22916 JP P,$1629 1619 3A6500 LD A,($0065) 161C E67F AND $7F 161E 326500 LD ($0065),A 1621 115C00 LD DE,$005C 1624 0E1E LD C,$1E 1626 CD0633 CALL $3306 1629 115C00 LD DE,$005C 162C CDC131 CALL $31C1 162F CDB70D CALL $0DB7 1632 CA4016 JP Z,$1640 1635 3A0A01 LD A,($010A) 1638 EE80 XOR $80 163A 326500 LD ($0065),A 163D 326600 LD ($0066),A 1640 AF XOR A 1641 326800 LD ($0068),A 1644 CDBF26 CALL $26BF 1647 AF XOR A 1648 32EF14 LD ($14EF),A 164B 67 LD H,A 164C 6F LD L,A 164D 227B1F LD ($1F7B),HL 1650 223C1E LD ($1E3C),HL 1653 3C INC A 1654 32A616 LD ($16A6),A 1657 3E00 LD A,$00 1659 FE53 CP $53 165B C26516 JP NZ,$1665 165E 220027 LD ($2700),HL 1661 23 INC HL 1662 220627 LD ($2706),HL 1665 CD122B CALL $2B12 1668 DAA516 JP C,$16A5 166B CDFF26 CALL $26FF 166E 3EFF LD A,$FF 1670 32C52F LD ($2FC5),A 1673 3A0C01 LD A,($010C) 1676 B7 OR A 1677 CA9316 JP Z,$1693 167A 3E2A LD A,$2A 167C F4EF38 CALL P,$38EF 167F F29316 JP P,$1693 1682 CDF628 CALL $28F6 1685 3E0D LD A,$0D 1687 CDEF38 CALL $38EF 168A 3A5139 LD A,($3951) 168D B7 OR A 168E 3E0A LD A,$0A 1690 FCEF38 CALL M,$38EF 1693 CDB033 CALL $33B0 1696 CDC537 CALL $37C5 1699 218000 LD HL,$0080 169C CD8815 CALL $1588 169F CDC728 CALL $28C7 16A2 D26516 JP NC,$1665 16A5 3E00 LD A,$00 16A7 B7 OR A 16A8 F26F17 JP P,$176F 16AB AF XOR A 16AC 32A616 LD ($16A6),A 16AF 321617 LD ($1716),A 16B2 210000 LD HL,$0000 16B5 22F816 LD ($16F8),HL 16B8 CD5213 CALL $1352 16BB 3E08 LD A,$08 16BD C2C116 JP NZ,$16C1 16C0 87 ADD A,A 16C1 321C17 LD ($171C),A 16C4 2AF816 LD HL,($16F8) 16C7 7E LD A,(HL) 16C8 23 INC HL 16C9 B6 OR (HL) 16CA CA6F17 JP Z,$176F 16CD 112000 LD DE,$0020 16D0 2A0E03 LD HL,($030E) 16D3 7E LD A,(HL) 16D4 FEE5 CP $E5 16D6 CAE116 JP Z,$16E1 16D9 3C INC A 16DA CA9735 JP Z,$3597 16DD 19 ADD HL,DE 16DE C3D316 JP $16D3 16E1 EB EX DE,HL 16E2 D5 PUSH DE 16E3 AF XOR A 16E4 12 LD (DE),A 16E5 13 INC DE 16E6 215D00 LD HL,$005D 16E9 061F LD B,$1F 16EB CDBC37 CALL $37BC 16EE D1 POP DE 16EF 211000 LD HL,$0010 16F2 19 ADD HL,DE 16F3 222817 LD ($1728),HL 16F6 EB EX DE,HL 16F7 210000 LD HL,$0000 16FA 4E LD C,(HL) 16FB 23 INC HL 16FC CD5213 CALL $1352 16FF CA0517 JP Z,$1705 1702 46 LD B,(HL) 1703 23 INC HL 1704 78 LD A,B 1705 B1 OR C 1706 CA4317 JP Z,$1743 1709 CD5213 CALL $1352 170C 79 LD A,C 170D 12 LD (DE),A 170E 13 INC DE 170F CA1517 JP Z,$1715 1712 78 LD A,B 1713 12 LD (DE),A 1714 13 INC DE 1715 3E00 LD A,$00 1717 3C INC A 1718 321617 LD ($1716),A 171B FE00 CP $00 171D C2FA16 JP NZ,$16FA 1720 22F816 LD ($16F8),HL 1723 3AFB3A LD A,($3AFB) 1726 4F LD C,A 1727 210000 LD HL,$0000 172A 2B DEC HL 172B 2B DEC HL 172C 2B DEC HL 172D 2B DEC HL 172E 3A6800 LD A,($0068) 1731 81 ADD A,C 1732 77 LD (HL),A 1733 3C INC A 1734 326800 LD ($0068),A 1737 23 INC HL 1738 23 INC HL 1739 23 INC HL 173A 3680 LD (HL),$80 173C AF XOR A 173D 321617 LD ($1716),A 1740 C3C416 JP $16C4 1743 3A1617 LD A,($1716) 1746 4F LD C,A 1747 3AFA3A LD A,($3AFA) 174A 3C INC A 174B 47 LD B,A 174C 0D DEC C 174D CA5417 JP Z,$1754 1750 80 ADD A,B 1751 C34C17 JP $174C 1754 FE81 CP $81 1756 DA5B17 JP C,$175B 1759 E67F AND $7F 175B 2A2817 LD HL,($1728) 175E 2B DEC HL 175F 77 LD (HL),A 1760 2B DEC HL 1761 2B DEC HL 1762 2B DEC HL 1763 3A6800 LD A,($0068) 1766 DA6E17 JP C,$176E 1769 4F LD C,A 176A 3AFB3A LD A,($3AFB) 176D 89 ADC A,C 176E 77 LD (HL),A 176F 2A3C1E LD HL,($1E3C) 1772 7D LD A,L 1773 B4 OR H 1774 CA9917 JP Z,$1799 1777 AF XOR A 1778 32E41E LD ($1EE4),A 177B CD6838 CALL $3868 ; ############## DATA AREA ############### 177E 0D736176 DEFM "<CR>sav" 1782 E5 DEFB $E5 ; '\x65' with bit 7 set ('e') ; ######################################## 1783 CD1B1C CALL $1C1B 1786 C29917 JP NZ,$1799 1789 3E01 LD A,$01 178B 32E41E LD ($1EE4),A 178E CDBF26 CALL $26BF 1791 3EFF LD A,$FF 1793 325C30 LD ($305C),A 1796 CD4E30 CALL $304E 1799 CD6838 CALL $3868 ; ############## DATA AREA ############### 179C 0D0D05636865636B73756D20 DEFM "<CR><CR>\x05checksum " 17A8 A0 DEFB $A0 ; '\x20' with bit 7 set (' ') ; ######################################## 17A9 2A7B1F LD HL,($1F7B) 17AC CDBA2F CALL $2FBA 17AF AF XOR A 17B0 32C52F LD ($2FC5),A 17B3 2A3C1E LD HL,($1E3C) 17B6 7D LD A,L 17B7 B4 OR H 17B8 CAD304 JP Z,$04D3 17BB CD6838 CALL $3868 17BE 0D DEC C 17BF 62 LD H,D 17C0 61 LD H,C 17C1 64 LD H,H 17C2 2062 JR NZ,$1826 17C4 6C LD L,H 17C5 6F LD L,A 17C6 63 LD H,E 17C7 6B LD L,E 17C8 73 LD (HL),E 17C9 2020 JR NZ,$17EB 17CB 20A0 JR NZ,$176D 17CD CDDF2F CALL $2FDF 17D0 3AE41E LD A,($1EE4) 17D3 B7 OR A 17D4 CA3718 JP Z,$1837 17D7 CD6838 CALL $3868 17DA 0D DEC C 17DB 0D DEC C 17DC 04 INC B 17DD A0 AND B 17DE 0608 LD B,$08 17E0 3A0A01 LD A,($010A) 17E3 C5 PUSH BC 17E4 CDEF38 CALL $38EF 17E7 C1 POP BC 17E8 05 DEC B 17E9 C2E017 JP NZ,$17E0 17EC 3E2E LD A,$2E 17EE CDEF38 CALL $38EF 17F1 3A0A01 LD A,($010A) 17F4 CDEF38 CALL $38EF 17F7 CDEF38 CALL $38EF 17FA CDEF38 CALL $38EF 17FD CD6838 CALL $3868 1800 2068 JR NZ,$186A 1802 61 LD H,C 1803 73 LD (HL),E 1804 2074 JR NZ,$187A 1806 68 LD L,B 1807 65 LD H,L 1808 2062 JR NZ,$186C 180A 61 LD H,C 180B 64 LD H,H 180C 2062 JR NZ,$1870 180E 6C LD L,H 180F 6F LD L,A 1810 63 LD H,E 1811 6B LD L,E 1812 73 LD (HL),E 1813 AE XOR (HL) 1814 CDB70D CALL $0DB7 1817 CA3718 JP Z,$1837 181A CD6838 CALL $3868 181D 2046 JR NZ,$1865 181F 69 LD L,C 1820 6C LD L,H 1821 65 LD H,L 1822 2069 JR NZ,$188D 1824 73 LD (HL),E 1825 2073 JR NZ,$189A 1827 65 LD H,L 1828 74 LD (HL),H 1829 2074 JR NZ,$189F 182B 6F LD L,A 182C 2053 JR NZ,$1881 182E 59 LD E,C 182F 53 LD D,E 1830 2026 JR NZ,$1858 1832 2052 JR NZ,$1886 1834 2F CPL 1835 4F LD C,A 1836 AE XOR (HL) 1837 CD6838 CALL $3868 183A 0D DEC C 183B 0D DEC C 183C 73 LD (HL),E 183D 68 LD L,B 183E 6F LD L,A 183F 77 LD (HL),A 1840 2062 JR NZ,$18A4 1842 61 LD H,C 1843 64 LD H,H 1844 2004 JR NZ,$184A 1846 F3 DI 1847 CD1B1C CALL $1C1B 184A C2F118 JP NZ,$18F1 184D CD6838 CALL $3868 1850 0D DEC C 1851 0D DEC C 1852 75 LD (HL),L 1853 73 LD (HL),E 1854 65 LD H,L 1855 72 LD (HL),D 1856 09 ADD HL,BC 1857 04 INC B 1858 09 ADD HL,BC 1859 2065 JR NZ,$18C0 185B 78 LD A,B 185C 74 LD (HL),H 185D 8D ADC A,L 185E 2A771E LD HL,($1E77) 1861 7E LD A,(HL) 1862 FEE5 CP $E5 1864 CABE18 JP Z,$18BE 1867 3C INC A 1868 CAF118 JP Z,$18F1 186B 011000 LD BC,$0010 186E 09 ADD HL,BC 186F EB EX DE,HL 1870 2AB316 LD HL,($16B3) 1873 3A1C17 LD A,($171C) 1876 32A118 LD ($18A1),A 1879 4E LD C,(HL) 187A CD5213 CALL $1352 187D CA8418 JP Z,$1884 1880 23 INC HL 1881 46 LD B,(HL) 1882 78 LD A,B 1883 2B DEC HL 1884 B1 OR C 1885 CABE18 JP Z,$18BE 1888 1A LD A,(DE) 1889 13 INC DE 188A B9 CP C 188B C29918 JP NZ,$1899 188E CD5213 CALL $1352 1891 CACB18 JP Z,$18CB 1894 1A LD A,(DE) 1895 B8 CP B 1896 CACB18 JP Z,$18CB 1899 CD5213 CALL $1352 189C CAA018 JP Z,$18A0 189F 13 INC DE 18A0 3E00 LD A,$00 18A2 3D DEC A 18A3 32A118 LD ($18A1),A 18A6 C27918 JP NZ,$1879 18A9 23 INC HL 18AA CD5213 CALL $1352 18AD CAB118 JP Z,$18B1 18B0 23 INC HL 18B1 E5 PUSH HL 18B2 2A771E LD HL,($1E77) 18B5 111000 LD DE,$0010 18B8 19 ADD HL,DE 18B9 EB EX DE,HL 18BA E1 POP HL 18BB C37318 JP $1873 18BE 2A771E LD HL,($1E77) 18C1 112000 LD DE,$0020 18C4 19 ADD HL,DE 18C5 22771E LD ($1E77),HL 18C8 C35E18 JP $185E 18CB CDED38 CALL $38ED 18CE 2A771E LD HL,($1E77) 18D1 7E LD A,(HL) 18D2 E5 PUSH HL 18D3 CD9C2F CALL $2F9C 18D6 CDED38 CALL $38ED 18D9 E1 POP HL 18DA E5 PUSH HL 18DB 23 INC HL 18DC CD180C CALL $0C18 18DF CDED38 CALL $38ED 18E2 E1 POP HL 18E3 110C00 LD DE,$000C 18E6 19 ADD HL,DE 18E7 7E LD A,(HL) 18E8 CDB42F CALL $2FB4 18EB CD6338 CALL $3863 18EE C3BE18 JP $18BE 18F1 CD6838 CALL $3868 18F4 0D DEC C 18F5 72 LD (HL),D 18F6 65 LD H,L 18F7 70 LD (HL),B 18F8 61 LD H,C 18F9 69 LD L,C 18FA F2CD1B JP P,$1BCD 18FD 1C INC E 18FE C2D304 JP NZ,$04D3 1901 3E35 LD A,$35 1903 32EF14 LD ($14EF),A 1906 3AFA3A LD A,($3AFA) 1909 3C INC A 190A 6F LD L,A 190B 2600 LD H,$00 190D 54 LD D,H 190E 227B1F LD ($1F7B),HL 1911 2AB316 LD HL,($16B3) 1914 5E LD E,(HL) 1915 CD5213 CALL $1352 1918 CA1D19 JP Z,$191D 191B 23 INC HL 191C 56 LD D,(HL) 191D 7B LD A,E 191E B2 OR D 191F C22519 JP NZ,$1925 1922 C3D304 JP $04D3 1925 CDBD32 CALL $32BD 1928 CDFF26 CALL $26FF 192B CDB033 CALL $33B0 192E 2A7B1F LD HL,($1F7B) 1931 2B DEC HL 1932 227B1F LD ($1F7B),HL 1935 7D LD A,L 1936 B4 OR H 1937 CA4019 JP Z,$1940 193A CDC728 CALL $28C7 193D C32819 JP $1928 1940 2AB316 LD HL,($16B3) 1943 23 INC HL 1944 CD5213 CALL $1352 1947 CA4B19 JP Z,$194B 194A 23 INC HL 194B 22B316 LD ($16B3),HL 194E C30619 JP $1906 1951 218000 LD HL,$0080 1954 CD9133 CALL $3391 1957 CD6338 CALL $3863 195A CDF628 CALL $28F6 195D 0E02 LD C,$02 195F CDC833 CALL $33C8 1962 B7 OR A 1963 CCB733 CALL Z,$33B7 1966 B7 OR A 1967 C8 RET Z 1968 CD6838 CALL $3868 196B 2002 JR NZ,$196F 196D 72 LD (HL),D 196E 65 LD H,L 196F 70 LD (HL),B 1970 61 LD H,C 1971 69 LD L,C 1972 F2C93E JP P,$3EC9 1975 3F CCF 1976 32123B LD ($3B12),A 1979 CD9F31 CALL $319F 197C CD3030 CALL $3030 197F 110C00 LD DE,$000C 1982 19 ADD HL,DE 1983 CDED38 CALL $38ED 1986 7E LD A,(HL) 1987 E5 PUSH HL 1988 CDB42F CALL $2FB4 198B E1 POP HL 198C CD6838 CALL $3868 198F 20A0 JR NZ,$1931 1991 23 INC HL 1992 23 INC HL 1993 23 INC HL 1994 CD5213 CALL $1352 1997 0608 LD B,$08 1999 C29E19 JP NZ,$199E 199C 0610 LD B,$10 199E 23 INC HL 199F CD5213 CALL $1352 19A2 CAB819 JP Z,$19B8 19A5 5E LD E,(HL) 19A6 23 INC HL 19A7 56 LD D,(HL) 19A8 7B LD A,E 19A9 B2 OR D 19AA CAC919 JP Z,$19C9 19AD E5 PUSH HL 19AE C5 PUSH BC 19AF EB EX DE,HL 19B0 CDBA2F CALL $2FBA 19B3 C1 POP BC 19B4 E1 POP HL 19B5 C3C219 JP $19C2 19B8 7E LD A,(HL) 19B9 B7 OR A 19BA CAC919 JP Z,$19C9 19BD E5 PUSH HL 19BE CDB42F CALL $2FB4 19C1 E1 POP HL 19C2 CDED38 CALL $38ED 19C5 05 DEC B 19C6 C29E19 JP NZ,$199E 19C9 CDA731 CALL $31A7 19CC CA9610 JP Z,$1096 19CF F5 PUSH AF 19D0 CD6838 CALL $3868 19D3 0D DEC C 19D4 09 ADD HL,BC 19D5 2020 JR NZ,$19F7 19D7 2020 JR NZ,$19F9 19D9 20A0 JR NZ,$197B 19DB 3A6301 LD A,($0163) 19DE B7 OR A 19DF F2E819 JP P,$19E8 19E2 CD6838 CALL $3868 19E5 09 ADD HL,BC 19E6 09 ADD HL,BC 19E7 A0 AND B 19E8 F1 POP AF 19E9 C37C19 JP $197C 19EC 318A3B LD SP,$3B8A 19EF AF XOR A 19F0 327915 LD ($1579),A 19F3 CDA80D CALL $0DA8 19F6 3AEF14 LD A,($14EF) 19F9 FE0C CP $0C 19FB CA061A JP Z,$1A06 19FE CD6838 CALL $3868 1A01 0D DEC C 1A02 8D ADC A,L 1A03 C39610 JP $1096 1A06 CD6838 CALL $3868 1A09 03 INC BC 1A0A 63 LD H,E 1A0B 68 LD L,B 1A0C 65 LD H,L 1A0D 63 LD H,E 1A0E 6B LD L,E 1A0F 73 LD (HL),E 1A10 75 LD (HL),L 1A11 6D LD L,L 1A12 3AA02A LD A,($2AA0) 1A15 7B LD A,E 1A16 1F RRA 1A17 E5 PUSH HL 1A18 CDBA2F CALL $2FBA 1A1B CD6838 CALL $3868 1A1E 2020 JR NZ,$1A40 1A20 74 LD (HL),H 1A21 6F LD L,A 1A22 74 LD (HL),H 1A23 61 LD H,C 1A24 6C LD L,H 1A25 3AA0D1 LD A,($D1A0) 1A28 210000 LD HL,$0000 1A2B 19 ADD HL,DE 1A2C 22291A LD ($1A29),HL 1A2F E5 PUSH HL 1A30 CDBA2F CALL $2FBA 1A33 CD6838 CALL $3868 1A36 2020 JR NZ,$1A58 1A38 64 LD H,H 1A39 65 LD H,L 1A3A 63 LD H,E 1A3B 3AA0E1 LD A,($E1A0) 1A3E CDDF2F CALL $2FDF 1A41 C39610 JP $1096 1A44 7E LD A,(HL) 1A45 B7 OR A 1A46 FA6731 JP M,$3167 1A49 CDC131 CALL $31C1 1A4C C39610 JP $1096 1A4F 3AD01A LD A,($1AD0) 1A52 B7 OR A 1A53 C2AE1D JP NZ,$1DAE 1A56 CDB41D CALL $1DB4 1A59 C36B1A JP $1A6B 1A5C CD6838 CALL $3868 1A5F 49 LD C,C 1A60 6C LD L,H 1A61 6C LD L,H 1A62 65 LD H,L 1A63 67 LD H,A 1A64 61 LD H,C 1A65 6C LD L,H 1A66 206E JR NZ,$1AD6 1A68 61 LD H,C 1A69 6D LD L,L 1A6A E5 PUSH HL 1A6B CD6338 CALL $3863 1A6E 21063B LD HL,$3B06 1A71 7E LD A,(HL) 1A72 23 INC HL 1A73 CD7B35 CALL $357B 1A76 CD180C CALL $0C18 1A79 3A0F3B LD A,($3B0F) 1A7C B7 OR A 1A7D FA6731 JP M,$3167 1A80 CD6838 CALL $3868 1A83 203D JR NZ,$1AC2 1A85 A0 AND B 1A86 3AD01A LD A,($1AD0) 1A89 B7 OR A 1A8A 210000 LD HL,$0000 1A8D FAC61A JP M,$1AC6 1A90 CD6838 CALL $3868 1A93 6E LD L,(HL) 1A94 65 LD H,L 1A95 77 LD (HL),A 1A96 204E JR NZ,$1AE6 1A98 41 LD B,C 1A99 4D LD C,L 1A9A 45 LD B,L 1A9B BA CP D 1A9C CD0336 CALL $3603 1A9F 2A771E LD HL,($1E77) 1AA2 23 INC HL 1AA3 7E LD A,(HL) 1AA4 B7 OR A 1AA5 CA9610 JP Z,$1096 1AA8 CD6338 CALL $3863 1AAB CD782F CALL $2F78 1AAE CDF321 CALL $21F3 1AB1 32D01A LD ($1AD0),A 1AB4 C2C61A JP NZ,$1AC6 1AB7 CD2A0E CALL $0E2A 1ABA C25C1A JP NZ,$1A5C 1ABD CD782F CALL $2F78 1AC0 CDF321 CALL $21F3 1AC3 CA5C1A JP Z,$1A5C 1AC6 228B1A LD ($1A8B),HL 1AC9 012A3B LD BC,$3B2A 1ACC CDAC21 CALL $21AC 1ACF 3E00 LD A,$00 1AD1 FE3A CP $3A 1AD3 C2DE1A JP NZ,$1ADE 1AD6 F680 OR $80 1AD8 32D01A LD ($1AD0),A 1ADB C36E1A JP $1A6E 1ADE B7 OR A 1ADF FAF31A JP M,$1AF3 1AE2 21063B LD HL,$3B06 1AE5 7E LD A,(HL) 1AE6 23 INC HL 1AE7 CD7B35 CALL $357B 1AEA CD180C CALL $0C18 1AED CD6838 CALL $3868 1AF0 203D JR NZ,$1B2F 1AF2 A0 AND B 1AF3 21073B LD HL,$3B07 1AF6 11173B LD DE,$3B17 1AF9 060B LD B,$0B 1AFB D5 PUSH DE 1AFC C5 PUSH BC 1AFD CDBC37 CALL $37BC 1B00 212B3B LD HL,$3B2B 1B03 C1 POP BC 1B04 D1 POP DE 1B05 7E LD A,(HL) 1B06 FE3F CP $3F 1B08 CA151B JP Z,$1B15 1B0B 4F LD C,A 1B0C 1A LD A,(DE) 1B0D B7 OR A 1B0E 79 LD A,C 1B0F F2141B JP P,$1B14 1B12 F680 OR $80 1B14 12 LD (DE),A 1B15 1A LD A,(DE) 1B16 CDEF38 CALL $38EF 1B19 23 INC HL 1B1A 13 INC DE 1B1B 78 LD A,B 1B1C FE04 CP $04 1B1E 3E2E LD A,$2E 1B20 CCEF38 CALL Z,$38EF 1B23 05 DEC B 1B24 C2051B JP NZ,$1B05 1B27 11163B LD DE,$3B16 1B2A 1A LD A,(DE) 1B2B 323A1B LD ($1B3A),A 1B2E 3A063B LD A,($3B06) 1B31 12 LD (DE),A 1B32 AF XOR A 1B33 32223B LD ($3B22),A 1B36 CD9F31 CALL $319F 1B39 3E00 LD A,$00 1B3B 12 LD (DE),A 1B3C C24F1A JP NZ,$1A4F 1B3F 3A6301 LD A,($0163) 1B42 B7 OR A 1B43 F2571B JP P,$1B57 1B46 CD6838 CALL $3868 1B49 2020 JR NZ,$1B6B 1B4B 72 LD (HL),D 1B4C 65 LD H,L 1B4D 6E LD L,(HL) 1B4E 61 LD H,C 1B4F 6D LD L,L 1B50 E5 PUSH HL 1B51 CD1B1C CALL $1C1B 1B54 C29610 JP NZ,$1096 1B57 11063B LD DE,$3B06 1B5A CDD131 CALL $31D1 1B5D C39610 JP $1096 1B60 11063B LD DE,$3B06 1B63 CD1033 CALL $3310 1B66 3E3F LD A,$3F 1B68 32123B LD ($3B12),A 1B6B CDB70D CALL $0DB7 1B6E C2A91B JP NZ,$1BA9 1B71 CD7E31 CALL $317E 1B74 210000 LD HL,$0000 1B77 22273B LD ($3B27),HL 1B7A C3981B JP $1B98 1B7D 3AFA3A LD A,($3AFA) 1B80 3C INC A 1B81 6F LD L,A 1B82 2600 LD H,$00 1B84 111000 LD DE,$0010 1B87 CD5E35 CALL $355E 1B8A EB EX DE,HL 1B8B 2A273B LD HL,($3B27) 1B8E 19 ADD HL,DE 1B8F 22273B LD ($3B27),HL 1B92 CDA731 CALL $31A7 1B95 CAAE1B JP Z,$1BAE 1B98 CD3030 CALL $3030 1B9B 110F00 LD DE,$000F 1B9E 19 ADD HL,DE 1B9F 7E LD A,(HL) 1BA0 FE80 CP $80 1BA2 CA7D1B JP Z,$1B7D 1BA5 5F LD E,A 1BA6 C38B1B JP $1B8B 1BA9 0E23 LD C,$23 1BAB CD0633 CALL $3306 1BAE 3AEF14 LD A,($14EF) 1BB1 FE0B CP $0B 1BB3 C0 RET NZ 1BB4 CD6838 CALL $3868 1BB7 20AD JR NZ,$1B66 1BB9 2A273B LD HL,($3B27) 1BBC E5 PUSH HL 1BBD CDDF2F CALL $2FDF 1BC0 CD6838 CALL $3868 1BC3 2081 JR NZ,$1B46 1BC5 E1 POP HL 1BC6 0E08 LD C,$08 1BC8 CD401C CALL $1C40 1BCB 7B LD A,E 1BCC B7 OR A 1BCD CAD11B JP Z,$1BD1 1BD0 23 INC HL 1BD1 CD0E26 CALL $260E 1BD4 17 RLA 1BD5 4F LD C,A 1BD6 C5 PUSH BC 1BD7 CD401C CALL $1C40 1BDA C1 POP BC 1BDB 7B LD A,E 1BDC B7 OR A 1BDD CAE11B JP Z,$1BE1 1BE0 23 INC HL 1BE1 59 LD E,C 1BE2 1600 LD D,$00 1BE4 CD5E35 CALL $355E 1BE7 E5 PUSH HL 1BE8 110800 LD DE,$0008 1BEB CD5E35 CALL $355E 1BEE EB EX DE,HL 1BEF 2A273B LD HL,($3B27) 1BF2 EB EX DE,HL 1BF3 CD2C2B CALL $2B2C 1BF6 CDDF2F CALL $2FDF 1BF9 CD6838 CALL $3868 1BFC 2065 JR NZ,$1C63 1BFE 6D LD L,L 1BFF 70 LD (HL),B 1C00 74 LD (HL),H 1C01 F9 LD SP,HL 1C02 D1 POP DE 1C03 D5 PUSH DE 1C04 2A131C LD HL,($1C13) 1C07 19 ADD HL,DE 1C08 22131C LD ($1C13),HL 1C0B E1 POP HL 1C0C CD9F26 CALL $269F 1C0F CDED38 CALL $38ED 1C12 210000 LD HL,$0000 1C15 CD9F26 CALL $269F 1C18 C39610 JP $1096 1C1B CDA80D CALL $0DA8 1C1E CD6838 CALL $3868 1C21 2028 JR NZ,$1C4B 1C23 59 LD E,C 1C24 2F CPL 1C25 4E LD C,(HL) 1C26 29 ADD HL,HL 1C27 20BF JR NZ,$1BE8 1C29 CD1038 CALL $3810 1C2C FE4E CP $4E 1C2E C2361C JP NZ,$1C36 1C31 CD6838 CALL $3868 1C34 6F LD L,A 1C35 A0 AND B 1C36 FE59 CP $59 1C38 C0 RET NZ 1C39 CD6838 CALL $3868 1C3C 65 LD H,L 1C3D F3 DI 1C3E AF XOR A 1C3F C9 RET 1C40 110000 LD DE,$0000 1C43 42 LD B,D 1C44 79 LD A,C 1C45 B7 OR A 1C46 C8 RET Z 1C47 3D DEC A 1C48 C8 RET Z 1C49 E5 PUSH HL 1C4A 7D LD A,L 1C4B 91 SUB C 1C4C 6F LD L,A 1C4D 7C LD A,H 1C4E 98 SBC A,B 1C4F 67 LD H,A 1C50 DA591C JP C,$1C59 1C53 13 INC DE 1C54 E3 EX (SP),HL 1C55 E1 POP HL 1C56 C3491C JP $1C49 1C59 E1 POP HL 1C5A EB EX DE,HL 1C5B C9 RET 1C5C CD6838 CALL $3868 1C5F 89 ADC A,C 1C60 060B LD B,$0B 1C62 23 INC HL 1C63 7E LD A,(HL) 1C64 B7 OR A 1C65 3E2D LD A,$2D 1C67 F26C1C JP P,$1C6C 1C6A 3E49 LD A,$49 1C6C CDEF38 CALL $38EF 1C6F 78 LD A,B 1C70 FE04 CP $04 1C72 3E2E LD A,$2E 1C74 CCEF38 CALL Z,$38EF 1C77 05 DEC B 1C78 C2621C JP NZ,$1C62 1C7B C39610 JP $1096 1C7E 21063B LD HL,$3B06 1C81 3A5109 LD A,($0951) 1C84 B7 OR A 1C85 CA5C1C JP Z,$1C5C 1C88 00 NOP 1C89 00 NOP 1C8A 00 NOP 1C8B 00 NOP 1C8C 00 NOP 1C8D 00 NOP 1C8E F5 PUSH AF 1C8F D5 PUSH DE 1C90 E60F AND $0F 1C92 5F LD E,A 1C93 1600 LD D,$00 1C95 19 ADD HL,DE 1C96 D1 POP DE 1C97 F1 POP AF 1C98 FAA11C JP M,$1CA1 1C9B 7E LD A,(HL) 1C9C F680 OR $80 1C9E C3A41C JP $1CA4 1CA1 7E LD A,(HL) 1CA2 E67F AND $7F 1CA4 77 LD (HL),A 1CA5 0E1E LD C,$1E 1CA7 CD0633 CALL $3306 1CAA C39610 JP $1096 1CAD 3A9710 LD A,($1097) 1CB0 B7 OR A 1CB1 3A681E LD A,($1E68) 1CB4 C4FE32 CALL NZ,$32FE 1CB7 112A3B LD DE,$3B2A 1CBA CD9F31 CALL $319F 1CBD CAC41D JP Z,$1DC4 1CC0 CD3030 CALL $3030 1CC3 3AD60B LD A,($0BD6) 1CC6 B7 OR A 1CC7 FA6731 JP M,$3167 1CCA 3A6201 LD A,($0162) 1CCD 3A6201 LD A,($0162) 1CD0 B7 OR A 1CD1 CAC11D JP Z,$1DC1 1CD4 FE02 CP $02 1CD6 C2AA1D JP NZ,$1DAA 1CD9 CD6838 CALL $3868 1CDC 2004 JR NZ,$1CE2 1CDE 2065 JR NZ,$1D45 1CE0 78 LD A,B 1CE1 69 LD L,C 1CE2 73 LD (HL),E 1CE3 74 LD (HL),H 1CE4 73 LD (HL),E 1CE5 2C INC L 1CE6 2028 JR NZ,$1D10 1CE8 42 LD B,D 1CE9 29 ADD HL,HL 1CEA 61 LD H,C 1CEB 63 LD H,E 1CEC 6B LD L,E 1CED 75 LD (HL),L 1CEE 70 LD (HL),B 1CEF 2C INC L 1CF0 2028 JR NZ,$1D1A 1CF2 4F LD C,A 1CF3 29 ADD HL,HL 1CF4 76 HALT 1CF5 65 LD H,L 1CF6 72 LD (HL),D 1CF7 77 LD (HL),A 1CF8 72 LD (HL),D 1CF9 69 LD L,C 1CFA 74 LD (HL),H 1CFB 65 LD H,L 1CFC 2C INC L 1CFD 2028 JR NZ,$1D27 1CFF 53 LD D,E 1D00 29 ADD HL,HL 1D01 6B LD L,E 1D02 69 LD L,C 1D03 70 LD (HL),B 1D04 BA CP D 1D05 CD1038 CALL $3810 1D08 FE4F CP $4F 1D0A CAC11D JP Z,$1DC1 1D0D FE53 CP $53 1D0F CA9610 JP Z,$1096 1D12 FE42 CP $42 1D14 C29610 JP NZ,$1096 1D17 212B3B LD HL,$3B2B 1D1A 113B3B LD DE,$3B3B 1D1D 0608 LD B,$08 1D1F CDBC37 CALL $37BC 1D22 3E42 LD A,$42 1D24 12 LD (DE),A 1D25 13 INC DE 1D26 3E41 LD A,$41 1D28 12 LD (DE),A 1D29 13 INC DE 1D2A 3E4B LD A,$4B 1D2C 12 LD (DE),A 1D2D 113A3B LD DE,$3B3A 1D30 1A LD A,(DE) 1D31 32961D LD ($1D96),A 1D34 3A2A3B LD A,($3B2A) 1D37 12 LD (DE),A 1D38 CD1033 CALL $3310 1D3B CD9F31 CALL $319F 1D3E CA951D JP Z,$1D95 1D41 D5 PUSH DE 1D42 CD3030 CALL $3030 1D45 D1 POP DE 1D46 3AD60B LD A,($0BD6) 1D49 B7 OR A 1D4A F2641D JP P,$1D64 1D4D 3A6201 LD A,($0162) 1D50 FE02 CP $02 1D52 CC6338 CALL Z,$3863 1D55 CD6838 CALL $3868 1D58 206F JR NZ,$1DC9 1D5A 6C LD L,H 1D5B 64 LD H,H 1D5C 202E JR NZ,$1D8C 1D5E 42 LD B,D 1D5F 41 LD B,C 1D60 CBC3 SET 0,E 1D62 67 LD H,A 1D63 313A6E LD SP,$6E3A 1D66 01B7CA LD BC,$CAB7 1D69 8F ADC A,A 1D6A 1D DEC E 1D6B 3A6201 LD A,($0162) 1D6E FE02 CP $02 1D70 CC6338 CALL Z,$3863 1D73 CD6838 CALL $3868 1D76 206F JR NZ,$1DE7 1D78 76 HALT 1D79 65 LD H,L 1D7A 72 LD (HL),D 1D7B 77 LD (HL),A 1D7C 72 LD (HL),D 1D7D 69 LD L,C 1D7E 74 LD (HL),H 1D7F 65 LD H,L 1D80 206F JR NZ,$1DF1 1D82 6C LD L,H 1D83 64 LD H,H 1D84 202E JR NZ,$1DB4 1D86 42 LD B,D 1D87 41 LD B,C 1D88 CBCD SET 1,L 1D8A 1B DEC DE 1D8B 1C INC E 1D8C C29610 JP NZ,$1096 1D8F 113A3B LD DE,$3B3A 1D92 CDC131 CALL $31C1 1D95 3E00 LD A,$00 1D97 12 LD (DE),A 1D98 CDCE31 CALL $31CE 1D9B 213B3B LD HL,$3B3B 1D9E 060B LD B,$0B 1DA0 3600 LD (HL),$00 1DA2 23 INC HL 1DA3 05 DEC B 1DA4 C2A01D JP NZ,$1DA0 1DA7 C3C41D JP $1DC4 1DAA 3D DEC A 1DAB CA171D JP Z,$1D17 1DAE CDB41D CALL $1DB4 1DB1 C39610 JP $1096 1DB4 CD6838 CALL $3868 1DB7 03 INC BC 1DB8 04 INC B 1DB9 2065 JR NZ,$1E20 1DBB 78 LD A,B 1DBC 69 LD L,C 1DBD 73 LD (HL),E 1DBE 74 LD (HL),H 1DBF F3 DI 1DC0 C9 RET 1DC1 CDBE31 CALL $31BE 1DC4 3E00 LD A,$00 1DC6 FE4D CP $4D 1DC8 CA3B1F JP Z,$1F3B 1DCB 3E24 LD A,$24 1DCD 11333B LD DE,$3B33 1DD0 12 LD (DE),A 1DD1 13 INC DE 1DD2 12 LD (DE),A 1DD3 13 INC DE 1DD4 12 LD (DE),A 1DD5 112A3B LD DE,$3B2A 1DD8 CD1033 CALL $3310 1DDB CD9F31 CALL $319F 1DDE CA091E JP Z,$1E09 1DE1 D5 PUSH DE 1DE2 CD3030 CALL $3030 1DE5 D1 POP DE 1DE6 3AD60B LD A,($0BD6) 1DE9 B7 OR A 1DEA F2091E JP P,$1E09 1DED 3A6201 LD A,($0162) 1DF0 FE02 CP $02 1DF2 CC6338 CALL Z,$3863 1DF5 CD6838 CALL $3868 1DF8 206F JR NZ,$1E69 1DFA 6C LD L,H 1DFB 64 LD H,H 1DFC 2074 JR NZ,$1E72 1DFE 65 LD H,L 1DFF 6D LD L,L 1E00 70 LD (HL),B 1E01 202E JR NZ,$1E31 1E03 24 INC H 1E04 24 INC H 1E05 A4 AND H 1E06 C36731 JP $3167 1E09 CDBE31 CALL $31BE 1E0C CDAF31 CALL $31AF 1E0F 3A6701 LD A,($0167) 1E12 B7 OR A 1E13 112A3B LD DE,$3B2A 1E16 0E24 LD C,$24 1E18 C40500 CALL NZ,$0005 1E1B AF XOR A 1E1C 32E41E LD ($1EE4),A 1E1F 67 LD H,A 1E20 6F LD L,A 1E21 223C1E LD ($1E3C),HL 1E24 227B1F LD ($1F7B),HL 1E27 3A9710 LD A,($1097) 1E2A B7 OR A 1E2B C4FE32 CALL NZ,$32FE 1E2E 3A5C00 LD A,($005C) 1E31 CD9E32 CALL $329E 1E34 CDC537 CALL $37C5 1E37 2A771E LD HL,($1E77) 1E3A EB EX DE,HL 1E3B 21801E LD HL,$1E80 1E3E 19 ADD HL,DE 1E3F E5 PUSH HL 1E40 EB EX DE,HL 1E41 CDC931 CALL $31C9 1E44 E1 POP HL 1E45 3A1913 LD A,($1319) 1E48 3D DEC A 1E49 BC CP H 1E4A CA671E JP Z,$1E67 1E4D 11063B LD DE,$3B06 1E50 CD1132 CALL $3211 1E53 B7 OR A 1E54 C2641E JP NZ,$1E64 1E57 2A3C1E LD HL,($1E3C) 1E5A 118000 LD DE,$0080 1E5D 19 ADD HL,DE 1E5E 223C1E LD ($1E3C),HL 1E61 C3341E JP $1E34 1E64 32E41E LD ($1EE4),A 1E67 3E00 LD A,$00 1E69 B7 OR A 1E6A C4FE32 CALL NZ,$32FE 1E6D 3A2A3B LD A,($3B2A) 1E70 CD9E32 CALL $329E 1E73 CDC537 CALL $37C5 1E76 118A3B LD DE,$3B8A 1E79 2A7B1F LD HL,($1F7B) 1E7C 3A3D1E LD A,($1E3D) 1E7F BC CP H 1E80 C2751F JP NZ,$1F75 1E83 3A3C1E LD A,($1E3C) 1E86 BD CP L 1E87 C2751F JP NZ,$1F75 1E8A 3A6701 LD A,($0167) 1E8D B7 OR A 1E8E CAE31E JP Z,$1EE3 1E91 EB EX DE,HL 1E92 227B1F LD ($1F7B),HL 1E95 EB EX DE,HL 1E96 2A3C1E LD HL,($1E3C) 1E99 19 ADD HL,DE 1E9A 223C1E LD ($1E3C),HL 1E9D CDC631 CALL $31C6 1EA0 CDC537 CALL $37C5 1EA3 112A3B LD DE,$3B2A 1EA6 0E21 LD C,$21 1EA8 CD0633 CALL $3306 1EAB B7 OR A 1EAC C2E31E JP NZ,$1EE3 1EAF 2A7B1F LD HL,($1F7B) 1EB2 118000 LD DE,$0080 1EB5 1A LD A,(DE) 1EB6 BE CP (HL) 1EB7 C2631F JP NZ,$1F63 1EBA 13 INC DE 1EBB 23 INC HL 1EBC 7B LD A,E 1EBD B7 OR A 1EBE C2B51E JP NZ,$1EB5 1EC1 227B1F LD ($1F7B),HL 1EC4 E5 PUSH HL 1EC5 2A4B3B LD HL,($3B4B) 1EC8 23 INC HL 1EC9 224B3B LD ($3B4B),HL 1ECC E1 POP HL 1ECD 3A3D1E LD A,($1E3D) 1ED0 BC CP H 1ED1 C2A01E JP NZ,$1EA0 1ED4 3A3C1E LD A,($1E3C) 1ED7 BD CP L 1ED8 C2A01E JP NZ,$1EA0 1EDB 112A3B LD DE,$3B2A 1EDE 0E21 LD C,$21 1EE0 CD0633 CALL $3306 1EE3 3E00 LD A,$00 1EE5 B7 OR A 1EE6 CA1B1E JP Z,$1E1B 1EE9 3A681E LD A,($1E68) 1EEC B7 OR A 1EED FCFE32 CALL M,$32FE 1EF0 CDF131 CALL $31F1 1EF3 212B3B LD HL,$3B2B 1EF6 113B3B LD DE,$3B3B 1EF9 0608 LD B,$08 1EFB CDBC37 CALL $37BC 1EFE 21F43A LD HL,$3AF4 1F01 0603 LD B,$03 1F03 CDBC37 CALL $37BC 1F06 3A6B01 LD A,($016B) 1F09 B7 OR A 1F0A F5 PUSH AF 1F0B CA1E1F JP Z,$1F1E 1F0E FA1E1F JP M,$1F1E 1F11 E60F AND $0F 1F13 213B3B LD HL,$3B3B 1F16 5F LD E,A 1F17 1600 LD D,$00 1F19 19 ADD HL,DE 1F1A 7E LD A,(HL) 1F1B C680 ADD A,$80 1F1D 77 LD (HL),A 1F1E CDCE31 CALL $31CE 1F21 F1 POP AF 1F22 CA9610 JP Z,$1096 1F25 FA9610 JP M,$1096 1F28 F5 PUSH AF 1F29 3A9710 LD A,($1097) 1F2C B7 OR A 1F2D C4FE32 CALL NZ,$32FE 1F30 F1 POP AF 1F31 11063B LD DE,$3B06 1F34 6F LD L,A 1F35 2600 LD H,$00 1F37 19 ADD HL,DE 1F38 C39B1C JP $1C9B 1F3B 3A9710 LD A,($1097) 1F3E CDFE32 CALL $32FE 1F41 3E3F LD A,$3F 1F43 32123B LD ($3B12),A 1F46 11063B LD DE,$3B06 1F49 CD9F31 CALL $319F 1F4C CA9610 JP Z,$1096 1F4F CD3030 CALL $3030 1F52 3A681E LD A,($1E68) 1F55 E67F AND $7F 1F57 77 LD (HL),A 1F58 CDBA33 CALL $33BA 1F5B 3EFF LD A,$FF 1F5D 325C30 LD ($305C),A 1F60 C3461F JP $1F46 1F63 CD6838 CALL $3868 1F66 07 RLCA 1F67 03 INC BC 1F68 56 LD D,(HL) 1F69 65 LD H,L 1F6A 72 LD (HL),D 1F6B 69 LD L,C 1F6C 66 LD H,(HL) 1F6D 79 LD A,C 1F6E 2065 JR NZ,$1FD5 1F70 72 LD (HL),D 1F71 72 LD (HL),D 1F72 6F LD L,A 1F73 72 LD (HL),D 1F74 00 NOP 1F75 19 ADD HL,DE 1F76 EB EX DE,HL 1F77 CDC931 CALL $31C9 1F7A 213800 LD HL,$0038 1F7D 118000 LD DE,$0080 1F80 19 ADD HL,DE 1F81 227B1F LD ($1F7B),HL 1F84 CD8535 CALL $3585 1F87 C3731E JP $1E73 1F8A AF XOR A 1F8B 327705 LD ($0577),A 1F8E 3A6D01 LD A,($016D) 1F91 B7 OR A 1F92 C2AB1F JP NZ,$1FAB 1F95 3C INC A 1F96 325C00 LD ($005C),A 1F99 325C30 LD ($305C),A 1F9C CD4E30 CALL $304E 1F9F CDB01F CALL $1FB0 1FA2 3A6D01 LD A,($016D) 1FA5 B7 OR A 1FA6 0E00 LD C,$00 1FA8 CA0500 JP Z,$0005 1FAB 2A1001 LD HL,($0110) 1FAE F9 LD SP,HL 1FAF C9 RET 1FB0 3A0000 LD A,($0000) 1FB3 4F LD C,A 1FB4 3A1701 LD A,($0117) 1FB7 B9 CP C 1FB8 C2C01F JP NZ,$1FC0 1FBB 3EC3 LD A,$C3 1FBD 320000 LD ($0000),A 1FC0 3A9710 LD A,($1097) 1FC3 E67F AND $7F 1FC5 17 RLA 1FC6 17 RLA 1FC7 17 RLA 1FC8 17 RLA 1FC9 4F LD C,A 1FCA 3A7525 LD A,($2575) 1FCD 3D DEC A 1FCE B1 OR C 1FCF 320400 LD ($0004),A 1FD2 C9 RET 1FD3 114001 LD DE,$0140 1FD6 C3E81F JP $1FE8 1FD9 114801 LD DE,$0148 1FDC C3E81F JP $1FE8 1FDF 115001 LD DE,$0150 1FE2 C3E81F JP $1FE8 1FE5 115801 LD DE,$0158 1FE8 EB EX DE,HL 1FE9 C31A20 JP $201A 1FEC CD2620 CALL $2026 1FEF 223C1E LD ($1E3C),HL 1FF2 2A1813 LD HL,($1318) 1FF5 E3 EX (SP),HL 1FF6 210000 LD HL,$0000 1FF9 E5 PUSH HL 1FFA 2A3C1E LD HL,($1E3C) 1FFD E5 PUSH HL 1FFE EB EX DE,HL 1FFF E5 PUSH HL 2000 118100 LD DE,$0081 2003 0600 LD B,$00 2005 7E LD A,(HL) 2006 B7 OR A 2007 CA1120 JP Z,$2011 200A 12 LD (DE),A 200B 23 INC HL 200C 13 INC DE 200D 04 INC B 200E C20520 JP NZ,$2005 2011 78 LD A,B 2012 328000 LD ($0080),A 2015 E1 POP HL 2016 C9 RET 2017 CD2620 CALL $2026 201A 223C1E LD ($1E3C),HL 201D 318A3B LD SP,$3B8A 2020 212904 LD HL,$0429 2023 C3F91F JP $1FF9 2026 CDAE3A CALL $3AAE 2029 110000 LD DE,$0000 202C EB EX DE,HL 202D 1A LD A,(DE) 202E CD1638 CALL $3816 2031 FE2C CP $2C 2033 C8 RET Z 2034 FE20 CP $20 2036 C8 RET Z 2037 D630 SUB $30 2039 DABA3A JP C,$3ABA 203C C6E9 ADD A,$E9 203E DABA3A JP C,$3ABA 2041 C606 ADD A,$06 2043 F24B20 JP P,$204B 2046 C607 ADD A,$07 2048 DABA3A JP C,$3ABA 204B C60A ADD A,$0A 204D B7 OR A 204E 4F LD C,A 204F 0600 LD B,$00 2051 29 ADD HL,HL 2052 29 ADD HL,HL 2053 29 ADD HL,HL 2054 29 ADD HL,HL 2055 09 ADD HL,BC 2056 13 INC DE 2057 C32D20 JP $202D 205A CD2620 CALL $2026 205D AF XOR A 205E 329220 LD ($2092),A 2061 322039 LD ($3920),A 2064 E5 PUSH HL 2065 CD6838 CALL $3868 2068 0D DEC C 2069 61 LD H,C 206A 64 LD H,H 206B 64 LD H,H 206C 72 LD (HL),D 206D 3A4865 LD A,($6548) 2070 78 LD A,B 2071 2044 JR NZ,$20B7 2073 65 LD H,L 2074 63 LD H,E 2075 2020 JR NZ,$2097 2077 42 LD B,D 2078 69 LD L,C 2079 6E LD L,(HL) 207A 61 LD H,C 207B 72 LD (HL),D 207C 79 LD A,C 207D 2041 JR NZ,$20C0 207F 73 LD (HL),E 2080 63 LD H,E 2081 69 LD L,C 2082 69 LD L,C 2083 2045 JR NZ,$20CA 2085 6E LD L,(HL) 2086 74 LD (HL),H 2087 65 LD H,L 2088 F2E1CD JP P,$CDE1 208B 63 LD H,E 208C 38E5 JR C,$2073 208E CDBA2F CALL $2FBA 2091 3E00 LD A,$00 2093 B7 OR A 2094 F47E35 CALL P,$357E 2097 F29E20 JP P,$209E 209A CD6838 CALL $3868 209D AD XOR L 209E CDED38 CALL $38ED 20A1 E1 POP HL 20A2 E5 PUSH HL 20A3 7E LD A,(HL) 20A4 47 LD B,A 20A5 CDB42F CALL $2FB4 20A8 CDED38 CALL $38ED 20AB 78 LD A,B 20AC CDA62F CALL $2FA6 20AF CDED38 CALL $38ED 20B2 78 LD A,B 20B3 CD842F CALL $2F84 20B6 CDED38 CALL $38ED 20B9 78 LD A,B 20BA B7 OR A 20BB 3E20 LD A,$20 20BD F2C220 JP P,$20C2 20C0 3E2D LD A,$2D 20C2 CDEF38 CALL $38EF 20C5 78 LD A,B 20C6 E67F AND $7F 20C8 FE20 CP $20 20CA DAD220 JP C,$20D2 20CD FE7F CP $7F 20CF DADA20 JP C,$20DA 20D2 CD3937 CALL $3739 20D5 C640 ADD A,$40 20D7 C3DF20 JP $20DF 20DA F5 PUSH AF 20DB CDED38 CALL $38ED 20DE F1 POP AF 20DF CDEF38 CALL $38EF 20E2 CD6838 CALL $3868 20E5 2020 JR NZ,$2107 20E7 BC CP H 20E8 3A6801 LD A,($0168) 20EB CDEF38 CALL $38EF 20EE CD6838 CALL $3868 20F1 BE CP (HL) 20F2 CD0336 CALL $3603 20F5 2A771E LD HL,($1E77) 20F8 23 INC HL 20F9 CD782F CALL $2F78 20FC C20621 JP NZ,$2106 20FF E1 POP HL 2100 CD6F21 CALL $216F 2103 C38A20 JP $208A 2106 47 LD B,A 2107 3A0801 LD A,($0108) 210A B8 CP B 210B C23521 JP NZ,$2135 210E 23 INC HL 210F 7E LD A,(HL) 2110 CD1638 CALL $3816 2113 FE42 CP $42 2115 CA2C21 JP Z,$212C 2118 FE44 CP $44 211A CA2C21 JP Z,$212C 211D FE41 CP $41 211F CA2C21 JP Z,$212C 2122 FE2E CP $2E 2124 CAD304 JP Z,$04D3 2127 FE48 CP $48 2129 C2BA3A JP NZ,$3ABA 212C 326801 LD ($0168),A 212F CD782F CALL $2F78 2132 CA8920 JP Z,$2089 2135 229D0F LD ($0F9D),HL 2138 3A6801 LD A,($0168) 213B FE41 CP $41 213D CA7821 JP Z,$2178 2140 FE42 CP $42 2142 CA7C21 JP Z,$217C 2145 FE44 CP $44 2147 CA9721 JP Z,$2197 214A CD2620 CALL $2026 214D 7C LD A,H 214E B7 OR A 214F C2BA3A JP NZ,$3ABA 2152 7D LD A,L 2153 E1 POP HL 2154 77 LD (HL),A 2155 CD6F21 CALL $216F 2158 EB EX DE,HL 2159 2A9D0F LD HL,($0F9D) 215C 7E LD A,(HL) 215D 23 INC HL 215E FE20 CP $20 2160 C25C21 JP NZ,$215C 2163 CD792F CALL $2F79 2166 EB EX DE,HL 2167 CA8A20 JP Z,$208A 216A E5 PUSH HL 216B EB EX DE,HL 216C C30621 JP $2106 216F 23 INC HL 2170 3A9220 LD A,($2092) 2173 B7 OR A 2174 F0 RET P 2175 2B DEC HL 2176 2B DEC HL 2177 C9 RET 2178 6E LD L,(HL) 2179 C35221 JP $2152 217C 010008 LD BC,$0800 217F 7E LD A,(HL) 2180 FE30 CP $30 2182 CA8B21 JP Z,$218B 2185 FE31 CP $31 2187 C2BA3A JP NZ,$3ABA 218A 37 SCF 218B 79 LD A,C 218C 17 RLA 218D 4F LD C,A 218E 23 INC HL 218F 05 DEC B 2190 C27F21 JP NZ,$217F 2193 69 LD L,C 2194 C35221 JP $2152 2197 CDC70F CALL $0FC7 219A CDB63A CALL $3AB6 219D C35221 JP $2152 21A0 FE5F CP $5F 21A2 CAAA21 JP Z,$21AA 21A5 FE20 CP $20 21A7 D8 RET C 21A8 FE7F CP $7F 21AA 3F CCF 21AB C9 RET 21AC 03 INC BC 21AD 7E LD A,(HL) 21AE FE2A CP $2A 21B0 C2BB21 JP NZ,$21BB 21B3 23 INC HL 21B4 7E LD A,(HL) 21B5 FE2A CP $2A 21B7 CABB21 JP Z,$21BB 21BA 2B DEC HL 21BB 32750E LD ($0E75),A 21BE 1E08 LD E,$08 21C0 CDC621 CALL $21C6 21C3 23 INC HL 21C4 1E03 LD E,$03 21C6 7E LD A,(HL) 21C7 FE2A CP $2A 21C9 CA0122 JP Z,$2201 21CC FE2E CP $2E 21CE CAEE21 JP Z,$21EE 21D1 CDF321 CALL $21F3 21D4 CAED21 JP Z,$21ED 21D7 57 LD D,A 21D8 3A6C01 LD A,($016C) 21DB B7 OR A 21DC 7A LD A,D 21DD CC1638 CALL Z,$3816 21E0 02 LD (BC),A 21E1 1D DEC E 21E2 03 INC BC 21E3 23 INC HL 21E4 C2C621 JP NZ,$21C6 21E7 7E LD A,(HL) 21E8 FE2E CP $2E 21EA CAEE21 JP Z,$21EE 21ED 2B DEC HL 21EE 3E20 LD A,$20 21F0 C30B22 JP $220B 21F3 FE20 CP $20 21F5 C8 RET Z 21F6 FE5B CP $5B 21F8 C8 RET Z 21F9 FE5D CP $5D 21FB C8 RET Z 21FC FE3A CP $3A 21FE C8 RET Z 21FF B7 OR A 2200 C9 RET 2201 23 INC HL 2202 7E LD A,(HL) 2203 FE2E CP $2E 2205 CA0922 JP Z,$2209 2208 2B DEC HL 2209 3E3F LD A,$3F 220B 1C INC E 220C 1D DEC E 220D C8 RET Z 220E 02 LD (BC),A 220F 03 INC BC 2210 C30C22 JP $220C 2213 CD2B22 CALL $222B 2216 C3D304 JP $04D3 2219 CD2B22 CALL $222B 221C 7B LD A,E 221D F680 OR $80 221F 32AA0E LD ($0EAA),A 2222 3A9710 LD A,($1097) 2225 CDFE32 CALL $32FE 2228 C3D304 JP $04D3 222B CDB70D CALL $0DB7 222E CADD0D JP Z,$0DDD 2231 CD792F CALL $2F79 2234 3E01 LD A,$01 2236 32681E LD ($1E68),A 2239 E5 PUSH HL 223A 7E LD A,(HL) 223B FE20 CP $20 223D CA4E22 JP Z,$224E 2240 FE30 CP $30 2242 DABA3A JP C,$3ABA 2245 FE3A CP $3A 2247 D2BA3A JP NC,$3ABA 224A 23 INC HL 224B C33A22 JP $223A 224E 363A LD (HL),$3A 2250 E1 POP HL 2251 CD8A0F CALL $0F8A 2254 3A6101 LD A,($0161) 2257 BB CP E 2258 DA6122 JP C,$2261 225B 7B LD A,E 225C FE10 CP $10 225E DA6922 JP C,$2269 2261 3A3406 LD A,($0634) 2264 B7 OR A 2265 7B LD A,E 2266 CA3906 JP Z,$0639 2269 FE20 CP $20 226B D2BA3A JP NC,$3ABA 226E F680 OR $80 2270 32AA0E LD ($0EAA),A 2273 C30133 JP $3301 2276 CD792F CALL $2F79 2279 CD1638 CALL $3816 227C 32DC22 LD ($22DC),A 227F 21D001 LD HL,$01D0 2282 CD6338 CALL $3863 2285 3A6401 LD A,($0164) 2288 E67F AND $7F 228A 47 LD B,A 228B CD610C CALL $0C61 228E CD792F CALL $2F79 2291 0E0F LD C,$0F 2293 E5 PUSH HL 2294 2B DEC HL 2295 1600 LD D,$00 2297 23 INC HL 2298 7E LD A,(HL) 2299 B7 OR A 229A F2A322 JP P,$22A3 229D F5 PUSH AF 229E 7A LD A,D 229F F601 OR $01 22A1 57 LD D,A 22A2 F1 POP AF 22A3 E67F AND $7F 22A5 FE7F CP $7F 22A7 CABF22 JP Z,$22BF 22AA CD1638 CALL $3816 22AD D2B822 JP NC,$22B8 22B0 FE20 CP $20 22B2 CAC022 JP Z,$22C0 22B5 D29722 JP NC,$2297 22B8 3E02 LD A,$02 22BA B2 OR D 22BB 57 LD D,A 22BC C39722 JP $2297 22BF 57 LD D,A 22C0 E1 POP HL 22C1 7A LD A,D 22C2 FE7F CP $7F 22C4 CAF922 JP Z,$22F9 22C7 0F RRCA 22C8 57 LD D,A 22C9 D2D622 JP NC,$22D6 22CC 3A3406 LD A,($0634) 22CF B7 OR A 22D0 CAF922 JP Z,$22F9 22D3 CD680C CALL $0C68 22D6 7A LD A,D 22D7 0F RRCA 22D8 D2E222 JP NC,$22E2 22DB 3E00 LD A,$00 22DD FE3F CP $3F 22DF C2F922 JP NZ,$22F9 22E2 7E LD A,(HL) 22E3 E67F AND $7F 22E5 FE20 CP $20 22E7 CA0723 JP Z,$2307 22EA D2EE22 JP NC,$22EE 22ED 0D DEC C 22EE CD4137 CALL $3741 22F1 23 INC HL 22F2 0D DEC C 22F3 FAF922 JP M,$22F9 22F6 C2E222 JP NZ,$22E2 22F9 7E LD A,(HL) 22FA B7 OR A 22FB CAD304 JP Z,$04D3 22FE 23 INC HL 22FF FE20 CP $20 2301 C2F922 JP NZ,$22F9 2304 C38B22 JP $228B 2307 CD792F CALL $2F79 230A CAD304 JP Z,$04D3 230D CDED38 CALL $38ED 2310 0D DEC C 2311 C20D23 JP NZ,$230D 2314 05 DEC B 2315 C28B22 JP NZ,$228B 2318 C38222 JP $2282 231B CD6338 CALL $3863 231E 3A6201 LD A,($0162) 2321 C641 ADD A,$41 2323 CDEF38 CALL $38EF 2326 CD6838 CALL $3868 2329 09 ADD HL,BC 232A 49 LD C,C 232B 66 LD H,(HL) 232C 2004 JR NZ,$2332 232E 2065 JR NZ,$2395 2330 78 LD A,B 2331 69 LD L,C 2332 73 LD (HL),E 2333 74 LD (HL),H 2334 2041 JR NZ,$2377 2336 2D DEC L 2337 6F LD L,A 2338 76 HALT 2339 65 LD H,L 233A 72 LD (HL),D 233B 6C LD L,H 233C 61 LD H,C 233D 79 LD A,C 233E 2C INC L 233F 2042 JR NZ,$2383 2341 2D DEC L 2342 62 LD H,D 2343 61 LD H,C 2344 63 LD H,E 2345 6B LD L,E 2346 2075 JR NZ,$23BD 2348 70 LD (HL),B 2349 2C INC L 234A 2043 JR NZ,$238F 234C 2D DEC L 234D 61 LD H,C 234E 73 LD (HL),E 234F 6B LD L,E 2350 2C INC L 2351 2044 JR NZ,$2397 2353 2D DEC L 2354 73 LD (HL),E 2355 6B LD L,E 2356 69 LD L,C 2357 70 LD (HL),B 2358 8D ADC A,L 2359 3A6401 LD A,($0164) 235C F5 PUSH AF 235D C630 ADD A,$30 235F CDEF38 CALL $38EF 2362 CD6838 CALL $3868 2365 09 ADD HL,BC 2366 63 LD H,E 2367 6F LD L,A 2368 6C LD L,H 2369 75 LD (HL),L 236A 6D LD L,L 236B 6E LD L,(HL) 236C F3 DI 236D F1 POP AF 236E 17 RLA 236F D27F23 JP NC,$237F 2372 CD6838 CALL $3868 2375 202B JR NZ,$23A2 2377 312069 LD SP,$6920 237A 6E LD L,(HL) 237B 2044 JR NZ,$23C1 237D 49 LD C,C 237E D2CD68 JP NC,$68CD 2381 380D JR C,$2390 2383 D0 RET NC 2384 3A0501 LD A,($0105) 2387 2F CPL 2388 3C INC A 2389 CDE025 CALL $25E0 238C CD6838 CALL $3868 238F 09 ADD HL,BC 2390 70 LD (HL),B 2391 61 LD H,C 2392 67 LD H,A 2393 69 LD L,C 2394 6E LD L,(HL) 2395 67 LD H,A 2396 0D DEC C 2397 D23A63 JP NC,$633A 239A 01CDE0 LD BC,$E0CD 239D 25 DEC H 239E CD6838 CALL $3868 23A1 09 ADD HL,BC 23A2 72 LD (HL),D 23A3 65 LD H,L 23A4 71 LD (HL),C 23A5 75 LD (HL),L 23A6 65 LD H,L 23A7 73 LD (HL),E 23A8 74 LD (HL),H 23A9 2059 JR NZ,$2404 23AB 2F CPL 23AC 4E LD C,(HL) 23AD 206F JR NZ,$241E 23AF 6E LD L,(HL) 23B0 2063 JR NZ,$2415 23B2 75 LD (HL),L 23B3 72 LD (HL),D 23B4 72 LD (HL),D 23B5 65 LD H,L 23B6 6E LD L,(HL) 23B7 74 LD (HL),H 23B8 2004 JR NZ,$23BE 23BA 09 ADD HL,BC 23BB 2851 JR Z,$240E 23BD 2D DEC L 23BE 72 LD (HL),D 23BF 65 LD H,L 23C0 71 LD (HL),C 23C1 75 LD (HL),L 23C2 65 LD H,L 23C3 73 LD (HL),E 23C4 74 LD (HL),H 23C5 206E JR NZ,$2435 23C7 65 LD H,L 23C8 77 LD (HL),A 23C9 206E JR NZ,$2439 23CB 61 LD H,C 23CC 6D LD L,L 23CD 65 LD H,L 23CE 29 ADD HL,HL 23CF 0D DEC C 23D0 D63A SUB $3A 23D2 67 LD H,A 23D3 01CDE0 LD BC,$E0CD 23D6 25 DEC H 23D7 CD6838 CALL $3868 23DA 09 ADD HL,BC 23DB 72 LD (HL),D 23DC 65 LD H,L 23DD 61 LD H,C 23DE 64 LD H,H 23DF 2061 JR NZ,$2442 23E1 66 LD H,(HL) 23E2 74 LD (HL),H 23E3 65 LD H,L 23E4 72 LD (HL),D 23E5 2077 JR NZ,$245E 23E7 72 LD (HL),D 23E8 69 LD L,C 23E9 74 LD (HL),H 23EA 65 LD H,L 23EB 0D DEC C 23EC D33A OUT ($3A),A 23EE 65 LD H,L 23EF 01CDE0 LD BC,$E0CD 23F2 25 DEC H 23F3 CD6838 CALL $3868 23F6 09 ADD HL,BC 23F7 73 LD (HL),E 23F8 68 LD L,B 23F9 6F LD L,A 23FA 77 LD (HL),A 23FB 2073 JR NZ,$2470 23FD 79 LD A,C 23FE 73 LD (HL),E 23FF 74 LD (HL),H 2400 65 LD H,L 2401 6D LD L,L 2402 2004 JR NZ,$2408 2404 73 LD (HL),E 2405 0D DEC C 2406 D43A66 CALL NC,$663A 2409 01CDE0 LD BC,$E0CD 240C 25 DEC H 240D CD6838 CALL $3868 2410 09 ADD HL,BC 2411 73 LD (HL),E 2412 74 LD (HL),H 2413 6F LD L,A 2414 70 LD (HL),B 2415 2069 JR NZ,$2480 2417 66 LD H,(HL) 2418 2005 JR NZ,$241F 241A 69 LD L,C 241B 73 LD (HL),E 241C 2066 JR NZ,$2484 241E 75 LD (HL),L 241F 6C LD L,H 2420 6C LD L,H 2421 0D DEC C 2422 CD3A6B CALL $6B3A 2425 01B7CA LD BC,$CAB7 2428 2B DEC HL 2429 24 INC H 242A 2F CPL 242B CDE025 CALL $25E0 242E CD6838 CALL $3868 2431 09 ADD HL,BC 2432 4D LD C,L 2433 61 LD H,C 2434 72 LD (HL),D 2435 6B LD L,E 2436 2063 JR NZ,$249B 2438 6F LD L,A 2439 70 LD (HL),B 243A 69 LD L,C 243B 65 LD H,L 243C 64 LD H,H 243D 2066 JR NZ,$24A5 243F 69 LD L,C 2440 6C LD L,H 2441 65 LD H,L 2442 73 LD (HL),E 2443 0D DEC C 2444 58 LD E,B 2445 09 ADD HL,BC 2446 6C LD L,H 2447 69 LD L,C 2448 73 LD (HL),E 2449 74 LD (HL),H 244A 2064 JR NZ,$24B0 244C 72 LD (HL),D 244D 69 LD L,C 244E 76 HALT 244F 65 LD H,L 2450 73 LD (HL),E 2451 2018 JR NZ,$246B 2453 41 LD B,C 2454 AD XOR L 2455 3A6001 LD A,($0160) 2458 5F LD E,A 2459 3A4834 LD A,($3448) 245C 57 LD D,A 245D B7 OR A 245E 7B LD A,E 245F C26324 JP NZ,$2463 2462 AF XOR A 2463 CD300E CALL $0E30 2466 CD8035 CALL $3580 2469 7A LD A,D 246A A3 AND E 246B C27C24 JP NZ,$247C 246E CD6838 CALL $3868 2471 2069 JR NZ,$24DC 2473 66 LD H,(HL) 2474 206F JR NZ,$24E5 2476 6E LD L,(HL) 2477 206C JR NZ,$24E5 2479 69 LD L,C 247A 6E LD L,(HL) 247B E5 PUSH HL 247C CDB70D CALL $0DB7 247F CADB24 JP Z,$24DB 2482 CD6838 CALL $3868 2485 0D DEC C 2486 55 LD D,L 2487 09 ADD HL,BC 2488 6C LD L,H 2489 69 LD L,C 248A 73 LD (HL),E 248B 74 LD (HL),H 248C 2075 JR NZ,$2503 248E 73 LD (HL),E 248F 65 LD H,L 2490 72 LD (HL),D 2491 73 LD (HL),E 2492 2020 JR NZ,$24B4 2494 1830 JR $24C6 2496 AD XOR L 2497 3A6101 LD A,($0161) 249A CD972F CALL $2F97 249D CD6838 CALL $3868 24A0 0D DEC C 24A1 A4 AND H 24A2 3AF002 LD A,($02F0) 24A5 2F CPL 24A6 CDE025 CALL $25E0 24A9 CD6838 CALL $3868 24AC 09 ADD HL,BC 24AD 73 LD (HL),E 24AE 75 LD (HL),L 24AF 62 LD H,D 24B0 6D LD L,L 24B1 69 LD L,C 24B2 74 LD (HL),H 24B3 2024 JR NZ,$24D9 24B5 24 INC H 24B6 24 INC H 24B7 2E53 LD L,$53 24B9 55 LD D,L 24BA 42 LD B,D 24BB 83 ADD A,E 24BC 21F002 LD HL,$02F0 24BF 7E LD A,(HL) 24C0 B7 OR A 24C1 F2C624 JP P,$24C6 24C4 2F CPL 24C5 B7 OR A 24C6 C2CC24 JP NZ,$24CC 24C9 3A7525 LD A,($2575) 24CC CD7B35 CALL $357B 24CF 23 INC HL 24D0 7E LD A,(HL) 24D1 B7 OR A 24D2 CADB24 JP Z,$24DB 24D5 CDEF38 CALL $38EF 24D8 C3CF24 JP $24CF 24DB CD6838 CALL $3868 24DE 0D DEC C 24DF 2B DEC HL 24E0 2F CPL 24E1 2D DEC L 24E2 09 ADD HL,BC 24E3 312D38 LD SP,$382D 24E6 206F JR NZ,$2557 24E8 72 LD (HL),D 24E9 2028 JR NZ,$2513 24EB 52 LD D,D 24EC 29 ADD HL,HL 24ED 65 LD H,L 24EE 61 LD H,C 24EF 64 LD H,H 24F0 2F CPL 24F1 77 LD (HL),A 24F2 72 LD (HL),D 24F3 69 LD L,C 24F4 74 LD (HL),H 24F5 65 LD H,L 24F6 2C INC L 24F7 2028 JR NZ,$2521 24F9 53 LD D,E 24FA 29 ADD HL,HL 24FB 73 LD (HL),E 24FC 79 LD A,C 24FD 73 LD (HL),E 24FE 74 LD (HL),H 24FF 65 LD H,L 2500 6D LD L,L 2501 2F CPL 2502 64 LD H,H 2503 69 LD L,C 2504 72 LD (HL),D 2505 2C INC L 2506 2065 JR NZ,$256D 2508 2858 JR Z,$2562 250A 29 ADD HL,HL 250B 74 LD (HL),H 250C 72 LD (HL),D 250D 61 LD H,C 250E 0D DEC C 250F 50 LD D,B 2510 4F LD C,A 2511 57 LD D,A 2512 45 LD B,L 2513 52 LD D,D 2514 89 ADC A,C 2515 210001 LD HL,$0100 2518 CDBA2F CALL $2FBA 251B CD6838 CALL $3868 251E 48 LD C,B 251F 83 ADD A,E 2520 3A1D01 LD A,($011D) 2523 6F LD L,A 2524 2600 LD H,$00 2526 29 ADD HL,HL 2527 EB EX DE,HL 2528 13 INC DE 2529 2A0E03 LD HL,($030E) 252C 19 ADD HL,DE 252D E5 PUSH HL 252E CDBA2F CALL $2FBA 2531 CD6838 CALL $3868 2534 48 LD C,B 2535 0D DEC C 2536 54 LD D,H 2537 50 LD D,B 2538 41 LD B,C 2539 89 ADC A,C 253A E1 POP HL 253B 7D LD A,L 253C B7 OR A 253D 118000 LD DE,$0080 2540 6A LD L,D 2541 19 ADD HL,DE 2542 F24625 JP P,$2546 2545 19 ADD HL,DE 2546 E5 PUSH HL 2547 CDBA2F CALL $2FBA 254A CD6838 CALL $3868 254D 48 LD C,B 254E 83 ADD A,E 254F 2A1813 LD HL,($1318) 2552 2B DEC HL 2553 E5 PUSH HL 2554 CDBA2F CALL $2FBA 2557 CD6838 CALL $3868 255A 48 LD C,B 255B A0 AND B 255C E1 POP HL 255D 23 INC HL 255E D1 POP DE 255F CD2C2B CALL $2B2C 2562 0607 LD B,$07 2564 CD702F CALL $2F70 2567 05 DEC B 2568 C26425 JP NZ,$2564 256B CDDF2F CALL $2FDF 256E CD6838 CALL $3868 2571 2001 JR NZ,$2574 2573 00 NOP 2574 3E01 LD A,$01 2576 32E004 LD ($04E0),A 2579 0E1D LD C,$1D 257B CD0500 CALL $0005 257E E5 PUSH HL 257F 0E18 LD C,$18 2581 CD0500 CALL $0005 2584 EB EX DE,HL 2585 E1 POP HL 2586 011000 LD BC,$0010 2589 0D DEC C 258A FAD304 JP M,$04D3 258D 78 LD A,B 258E FE08 CP $08 2590 C29525 JP NZ,$2595 2593 6C LD L,H 2594 5A LD E,D 2595 04 INC B 2596 7B LD A,E 2597 1F RRA 2598 5F LD E,A 2599 D2D825 JP NC,$25D8 259C E67F AND $7F 259E F5 PUSH AF 259F C5 PUSH BC 25A0 D5 PUSH DE 25A1 78 LD A,B 25A2 325C00 LD ($005C),A 25A5 CD4E30 CALL $304E 25A8 CD6338 CALL $3863 25AB D1 POP DE 25AC C1 POP BC 25AD 78 LD A,B 25AE CD7B35 CALL $357B 25B1 CD6838 CALL $3868 25B4 1820 JR $25D6 25B6 52 LD D,D 25B7 AF XOR A 25B8 7D LD A,L 25B9 1F RRA 25BA 6F LD L,A 25BB 3E57 LD A,$57 25BD D2C225 JP NC,$25C2 25C0 3E4F LD A,$4F 25C2 CDEF38 CALL $38EF 25C5 CDED38 CALL $38ED 25C8 E5 PUSH HL 25C9 D5 PUSH DE 25CA C5 PUSH BC 25CB CDFB25 CALL $25FB 25CE CD1626 CALL $2616 25D1 C1 POP BC 25D2 D1 POP DE 25D3 E1 POP HL 25D4 F1 POP AF 25D5 C38925 JP $2589 25D8 F5 PUSH AF 25D9 7D LD A,L 25DA 1F RRA 25DB 6F LD L,A 25DC F1 POP AF 25DD C38925 JP $2589 25E0 B7 OR A 25E1 FAF025 JP M,$25F0 25E4 CD6838 CALL $3868 25E7 2028 JR NZ,$2611 25E9 184F JR $263A 25EB 46 LD B,(HL) 25EC 46 LD B,(HL) 25ED 17 RLA 25EE A9 XOR C 25EF C9 RET 25F0 CD6838 CALL $3868 25F3 2028 JR NZ,$261D 25F5 184F JR $2646 25F7 4E LD C,(HL) 25F8 17 RLA 25F9 A9 XOR C 25FA C9 RET 25FB 2AFC3A LD HL,($3AFC) 25FE 23 INC HL 25FF CD0E26 CALL $260E 2602 CA0A26 JP Z,$260A 2605 29 ADD HL,HL 2606 3D DEC A 2607 C30226 JP $2602 260A 227B1F LD ($1F7B),HL 260D C9 RET 260E 3AF93A LD A,($3AF9) 2611 D603 SUB $03 2613 C0 RET NZ 2614 37 SCF 2615 C9 RET 2616 210000 LD HL,$0000 2619 223C1E LD ($1E3C),HL 261C 2AFC3A LD HL,($3AFC) 261F 23 INC HL 2620 EB EX DE,HL 2621 0E1B LD C,$1B 2623 D5 PUSH DE 2624 CD0500 CALL $0005 2627 D1 POP DE 2628 0608 LD B,$08 262A 7E LD A,(HL) 262B 07 RLCA 262C DA3826 JP C,$2638 262F E5 PUSH HL 2630 2A3C1E LD HL,($1E3C) 2633 23 INC HL 2634 223C1E LD ($1E3C),HL 2637 E1 POP HL 2638 F5 PUSH AF 2639 1B DEC DE 263A 7A LD A,D 263B B3 OR E 263C CA4826 JP Z,$2648 263F F1 POP AF 2640 05 DEC B 2641 C22B26 JP NZ,$262B 2644 23 INC HL 2645 C32826 JP $2628 2648 F1 POP AF 2649 CD0E26 CALL $260E 264C CA5A26 JP Z,$265A 264F 2A3C1E LD HL,($1E3C) 2652 29 ADD HL,HL 2653 223C1E LD ($1E3C),HL 2656 3D DEC A 2657 C34C26 JP $264C 265A CD6838 CALL $3868 265D 55 LD D,L 265E 73 LD (HL),E 265F 65 LD H,L 2660 64 LD H,H 2661 BA CP D 2662 2A3C1E LD HL,($1E3C) 2665 EB EX DE,HL 2666 2A7B1F LD HL,($1F7B) 2669 CD2C2B CALL $2B2C 266C E5 PUSH HL 266D 2AFE3A LD HL,($3AFE) 2670 23 INC HL 2671 0E20 LD C,$20 2673 CD401C CALL $1C40 2676 EB EX DE,HL 2677 E1 POP HL 2678 CD2C2B CALL $2B2C 267B CD9F26 CALL $269F 267E CD6838 CALL $3868 2681 2C INC L 2682 2046 JR NZ,$26CA 2684 72 LD (HL),D 2685 65 LD H,L 2686 65 LD H,L 2687 BA CP D 2688 2A3C1E LD HL,($1E3C) 268B CD9F26 CALL $269F 268E CD6838 CALL $3868 2691 2C INC L 2692 2043 JR NZ,$26D7 2694 61 LD H,C 2695 70 LD (HL),B 2696 61 LD H,C 2697 63 LD H,E 2698 69 LD L,C 2699 74 LD (HL),H 269A 79 LD A,C 269B BA CP D 269C 2A7B1F LD HL,($1F7B) 269F CDDF2F CALL $2FDF 26A2 CD6838 CALL $3868 26A5 CBC9 SET 1,C 26A7 CD6838 CALL $3868 26AA 03 INC BC 26AB 64 LD H,H 26AC 65 LD H,L 26AD 6C LD L,H 26AE 65 LD H,L 26AF 74 LD (HL),H 26B0 65 LD H,L 26B1 64 LD H,H 26B2 2004 JR NZ,$26B8 26B4 73 LD (HL),E 26B5 0D DEC C 26B6 8D ADC A,L 26B7 CD4E30 CALL $304E 26BA 3E02 LD A,$02 26BC 32BD33 LD ($33BD),A 26BF 2A043B LD HL,($3B04) 26C2 220027 LD ($2700),HL 26C5 210100 LD HL,$0001 26C8 220627 LD ($2706),HL 26CB 2AFE3A LD HL,($3AFE) 26CE 23 INC HL 26CF CD702F CALL $2F70 26D2 CD702F CALL $2F70 26D5 44 LD B,H 26D6 4D LD C,L 26D7 2A771E LD HL,($1E77) 26DA EB EX DE,HL 26DB C5 PUSH BC 26DC D5 PUSH DE 26DD 42 LD B,D 26DE 4B LD C,E 26DF 3A1913 LD A,($1319) 26E2 3D DEC A 26E3 3D DEC A 26E4 BA CP D 26E5 DA5E2F JP C,$2F5E 26E8 CDC931 CALL $31C9 26EB CDFF26 CALL $26FF 26EE 3AE41E LD A,($1EE4) 26F1 3D DEC A 26F2 C24927 JP NZ,$2749 26F5 3D DEC A 26F6 325C30 LD ($305C),A 26F9 CDBA33 CALL $33BA 26FC C34C27 JP $274C 26FF 110200 LD DE,$0002 2702 CD2332 CALL $3223 2705 110100 LD DE,$0001 2708 E5 PUSH HL 2709 D5 PUSH DE 270A 2A043B LD HL,($3B04) 270D EB EX DE,HL 270E 220627 LD ($2706),HL 2711 2A0027 LD HL,($2700) 2714 CD2C2B CALL $2B2C 2717 C1 POP BC 2718 60 LD H,B 2719 69 LD L,C 271A D22727 JP NC,$2727 271D 3E01 LD A,$01 271F B7 OR A 2720 C23F27 JP NZ,$273F 2723 2B DEC HL 2724 C33F27 JP $273F 2727 214AEC LD HL,$EC4A 272A EB EX DE,HL 272B 0B DEC BC 272C CD30CA CALL $CA30 ; *** call address directly modified at beginning of this program to hold addr of BIOS SECTRAN 272F 3AF83A LD A,($3AF8) 2732 B7 OR A 2733 C23727 JP NZ,$2737 2736 67 LD H,A 2737 CDB70D CALL $0DB7 273A C23F27 JP NZ,$273F 273D 67 LD H,A 273E 69 LD L,C 273F 22CD30 LD ($30CD),HL 2742 44 LD B,H 2743 4D LD C,L 2744 CD21CA CALL $CA21 ; *** call address directly modified at beginning of this program to hold addr of BIOS SETSEC 2747 E1 POP HL 2748 C9 RET 2749 CDB033 CALL $33B0 274C CDC728 CALL $28C7 274F D1 POP DE 2750 C1 POP BC 2751 218000 LD HL,$0080 2754 19 ADD HL,DE 2755 EB EX DE,HL 2756 0B DEC BC 2757 78 LD A,B 2758 B1 OR C 2759 C2DB26 JP NZ,$26DB 275C D5 PUSH DE 275D CDC631 CALL $31C6 2760 D1 POP DE 2761 3AE41E LD A,($1EE4) 2764 B7 OR A 2765 C0 RET NZ 2766 2AFE3A LD HL,($3AFE) 2769 44 LD B,H 276A 4D LD C,L 276B 2A771E LD HL,($1E77) 276E 112000 LD DE,$0020 2771 7E LD A,(HL) 2772 FEE5 CP $E5 2774 23 INC HL 2775 C2B928 JP NZ,$28B9 2778 23 INC HL 2779 7E LD A,(HL) 277A FEE5 CP $E5 277C 2B DEC HL 277D 2B DEC HL 277E CAB928 JP Z,$28B9 2781 23 INC HL 2782 3A5C00 LD A,($005C) 2785 CD7B35 CALL $357B 2788 5D LD E,L 2789 54 LD D,H 278A C5 PUSH BC 278B D5 PUSH DE 278C E5 PUSH HL 278D CD180C CALL $0C18 2790 D1 POP DE 2791 D5 PUSH DE 2792 1B DEC DE 2793 D5 PUSH DE 2794 1A LD A,(DE) 2795 32E41E LD ($1EE4),A 2798 3A5C00 LD A,($005C) 279B CD9E32 CALL $329E 279E 12 LD (DE),A 279F D5 PUSH DE 27A0 210C00 LD HL,$000C 27A3 19 ADD HL,DE 27A4 7E LD A,(HL) 27A5 32D60B LD ($0BD6),A 27A8 3600 LD (HL),$00 27AA D1 POP DE 27AB E5 PUSH HL 27AC CD9F31 CALL $319F 27AF E1 POP HL 27B0 3AD60B LD A,($0BD6) 27B3 77 LD (HL),A 27B4 3AE41E LD A,($1EE4) 27B7 D1 POP DE 27B8 12 LD (DE),A 27B9 CAD527 JP Z,$27D5 27BC CD6838 CALL $3868 27BF 03 INC BC 27C0 02 LD (BC),A 27C1 72 LD (HL),D 27C2 65 LD H,L 27C3 63 LD H,E 27C4 6F LD L,A 27C5 76 HALT 27C6 65 LD H,L 27C7 72 LD (HL),D 27C8 2C INC L 27C9 2004 JR NZ,$27CF 27CB 2065 JR NZ,$2832 27CD 78 LD A,B 27CE 69 LD L,C 27CF 73 LD (HL),E 27D0 74 LD (HL),H 27D1 F3 DI 27D2 C3B328 JP $28B3 27D5 3AFB3A LD A,($3AFB) 27D8 4F LD C,A 27D9 3AD60B LD A,($0BD6) 27DC B9 CP C 27DD CA0728 JP Z,$2807 27E0 81 ADD A,C 27E1 B9 CP C 27E2 CA0728 JP Z,$2807 27E5 CD6838 CALL $3868 27E8 03 INC BC 27E9 02 LD (BC),A 27EA 72 LD (HL),D 27EB 65 LD H,L 27EC 63 LD H,E 27ED 6F LD L,A 27EE 76 HALT 27EF 65 LD H,L 27F0 72 LD (HL),D 27F1 2C INC L 27F2 2004 JR NZ,$27F8 27F4 2077 JR NZ,$286D 27F6 69 LD L,C 27F7 74 LD (HL),H 27F8 68 LD L,B 27F9 2062 JR NZ,$285D 27FB 61 LD H,C 27FC 64 LD H,H 27FD 2065 JR NZ,$2864 27FF 78 LD A,B 2800 74 LD (HL),H 2801 65 LD H,L 2802 6E LD L,(HL) 2803 F4C3B3 CALL P,$B3C3 2806 28CD JR Z,$27D5 2808 68 LD L,B 2809 3803 JR C,$280E 280B 72 LD (HL),D 280C 65 LD H,L 280D 63 LD H,E 280E 6F LD L,A 280F 76 HALT 2810 65 LD H,L 2811 F2CD1B JP P,$1BCD 2814 1C INC E 2815 C2B328 JP NZ,$28B3 2818 325628 LD ($2856),A 281B E1 POP HL 281C D1 POP DE 281D C1 POP BC 281E C5 PUSH BC 281F D5 PUSH DE 2820 E5 PUSH HL 2821 2B DEC HL 2822 227B1F LD ($1F7B),HL 2825 3A9710 LD A,($1097) 2828 E67F AND $7F 282A 77 LD (HL),A 282B E5 PUSH HL 282C 110900 LD DE,$0009 282F 19 ADD HL,DE 2830 CDB70D CALL $0DB7 2833 CA3A28 JP Z,$283A 2836 7E LD A,(HL) 2837 F680 OR $80 2839 77 LD (HL),A 283A 23 INC HL 283B 23 INC HL 283C 23 INC HL 283D 7E LD A,(HL) 283E 32D60B LD ($0BD6),A 2841 23 INC HL 2842 23 INC HL 2843 23 INC HL 2844 7E LD A,(HL) 2845 FE80 CP $80 2847 E1 POP HL 2848 C2A328 JP NZ,$28A3 284B 112000 LD DE,$0020 284E 19 ADD HL,DE 284F 0B DEC BC 2850 78 LD A,B 2851 B1 OR C 2852 C26728 JP NZ,$2867 2855 3E00 LD A,$00 2857 B7 OR A 2858 C2A328 JP NZ,$28A3 285B 2F CPL 285C 325628 LD ($2856),A 285F 2AFE3A LD HL,($3AFE) 2862 44 LD B,H 2863 4D LD C,L 2864 2A771E LD HL,($1E77) 2867 7E LD A,(HL) 2868 FEE5 CP $E5 286A C24B28 JP NZ,$284B 286D 223C1E LD ($1E3C),HL 2870 EB EX DE,HL 2871 2A7B1F LD HL,($1F7B) 2874 C5 PUSH BC 2875 0E0B LD C,$0B 2877 23 INC HL 2878 13 INC DE 2879 1A LD A,(DE) 287A BE CP (HL) 287B CA8428 JP Z,$2884 287E F680 OR $80 2880 BE CP (HL) 2881 C29B28 JP NZ,$289B 2884 0D DEC C 2885 C27728 JP NZ,$2877 2888 23 INC HL 2889 3AD60B LD A,($0BD6) 288C 96 SUB (HL) 288D FAA228 JP M,$28A2 2890 2A3C1E LD HL,($1E3C) 2893 79 LD A,C 2894 325628 LD ($2856),A 2897 C1 POP BC 2898 C32528 JP $2825 289B C1 POP BC 289C 2A3C1E LD HL,($1E3C) 289F C34B28 JP $284B 28A2 C1 POP BC 28A3 3E01 LD A,$01 28A5 32E41E LD ($1EE4),A 28A8 CDBF26 CALL $26BF 28AB 3E80 LD A,$80 28AD 32E41E LD ($1EE4),A 28B0 CDBF26 CALL $26BF 28B3 CD6338 CALL $3863 28B6 E1 POP HL 28B7 D1 POP DE 28B8 C1 POP BC 28B9 2B DEC HL 28BA 112000 LD DE,$0020 28BD 19 ADD HL,DE 28BE 0B DEC BC 28BF 78 LD A,B 28C0 B1 OR C 28C1 C27127 JP NZ,$2771 28C4 C3D304 JP $04D3 28C7 E5 PUSH HL 28C8 D5 PUSH DE 28C9 2A0627 LD HL,($2706) 28CC 23 INC HL 28CD EB EX DE,HL 28CE 2AF73A LD HL,($3AF7) 28D1 CD2C2B CALL $2B2C 28D4 EB EX DE,HL 28D5 D2F028 JP NC,$28F0 28D8 2A0027 LD HL,($2700) 28DB 23 INC HL 28DC EB EX DE,HL 28DD 2A2532 LD HL,($3225) 28E0 CD2C2B CALL $2B2C 28E3 D2E928 JP NC,$28E9 28E6 110000 LD DE,$0000 28E9 EB EX DE,HL 28EA 220027 LD ($2700),HL 28ED 210100 LD HL,$0001 28F0 220627 LD ($2706),HL 28F3 D1 POP DE 28F4 E1 POP HL 28F5 C9 RET 28F6 E5 PUSH HL 28F7 CD2F35 CALL $352F 28FA CD6838 CALL $3868 28FD 47 LD B,A 28FE BD CP L 28FF 2A043B LD HL,($3B04) 2902 EB EX DE,HL 2903 2A0027 LD HL,($2700) 2906 CD2C2B CALL $2B2C 2909 DA1E29 JP C,$291E 290C 2A0A34 LD HL,($340A) 290F CDBA2F CALL $2FBA 2912 CD7E35 CALL $357E 2915 3AD132 LD A,($32D1) 2918 CDB42F CALL $2FB4 291B C32829 JP $2928 291E CD6838 CALL $3868 2921 2D DEC L 2922 2D DEC L 2923 2D DEC L 2924 2D DEC L 2925 3A2DAD LD A,($AD2D) 2928 CD6838 CALL $3868 292B 2054 JR NZ,$2981 292D BD CP L 292E 4F LD C,A 292F 2A0027 LD HL,($2700) 2932 CDE72F CALL $2FE7 2935 CD6838 CALL $3868 2938 2053 JR NZ,$298D 293A BD CP L 293B 2A0627 LD HL,($2706) 293E CDED2F CALL $2FED 2941 CD6838 CALL $3868 2944 2050 JR NZ,$2996 2946 53 LD D,E 2947 BD CP L 2948 2ACD30 LD HL,($30CD) 294B CDED2F CALL $2FED 294E E1 POP HL 294F C9 RET 2950 3AEF14 LD A,($14EF) 2953 FE21 CP $21 2955 3E1F LD A,$1F 2957 CA5C29 JP Z,$295C 295A 3E20 LD A,$20 295C 32EF14 LD ($14EF),A 295F CD4E30 CALL $304E 2962 CD2620 CALL $2026 2965 CDB63A CALL $3AB6 2968 EB EX DE,HL 2969 E5 PUSH HL 296A 2AFC3A LD HL,($3AFC) 296D CD2C2B CALL $2B2C 2970 CDBD32 CALL $32BD 2973 210100 LD HL,$0001 2976 227B1F LD ($1F7B),HL 2979 C3A429 JP $29A4 297C CD4E30 CALL $304E 297F CDAE3A CALL $3AAE 2982 CDC70F CALL $0FC7 2985 CDB63A CALL $3AB6 2988 220027 LD ($2700),HL 298B 210100 LD HL,$0001 298E 227B1F LD ($1F7B),HL 2991 EB EX DE,HL 2992 CDAF3A CALL $3AAF 2995 CDC70F CALL $0FC7 2998 CDB63A CALL $3AB6 299B D5 PUSH DE 299C 220627 LD ($2706),HL 299F 7D LD A,L 29A0 B4 OR H 29A1 CA332B JP Z,$2B33 29A4 E1 POP HL 29A5 CD782F CALL $2F78 29A8 CA112A JP Z,$2A11 29AB 3AEF14 LD A,($14EF) 29AE FE1F CP $1F 29B0 C2F029 JP NZ,$29F0 29B3 7E LD A,(HL) 29B4 CD1638 CALL $3816 29B7 FE58 CP $58 29B9 C2F029 JP NZ,$29F0 29BC 3E06 LD A,$06 29BE 328215 LD ($1582),A 29C1 23 INC HL 29C2 7E LD A,(HL) 29C3 CD1638 CALL $3816 29C6 FE20 CP $20 29C8 CADF29 JP Z,$29DF 29CB FE41 CP $41 29CD C2D529 JP NZ,$29D5 29D0 3E08 LD A,$08 29D2 C3DC29 JP $29DC 29D5 FE48 CP $48 29D7 C2DC29 JP NZ,$29DC 29DA 3E07 LD A,$07 29DC 328215 LD ($1582),A 29DF E5 PUSH HL 29E0 218000 LD HL,$0080 29E3 223C1E LD ($1E3C),HL 29E6 E1 POP HL 29E7 CD782F CALL $2F78 29EA C2002A JP NZ,$2A00 29ED C3172A JP $2A17 29F0 CD2620 CALL $2026 29F3 CDB63A CALL $3AB6 29F6 223C1E LD ($1E3C),HL 29F9 EB EX DE,HL 29FA CD782F CALL $2F78 29FD CA172A JP Z,$2A17 2A00 CDC70F CALL $0FC7 2A03 CDB63A CALL $3AB6 2A06 227B1F LD ($1F7B),HL 2A09 7D LD A,L 2A0A B4 OR H 2A0B CAD304 JP Z,$04D3 2A0E C3172A JP $2A17 2A11 218000 LD HL,$0080 2A14 223C1E LD ($1E3C),HL 2A17 2A7B1F LD HL,($1F7B) 2A1A 3A1901 LD A,($0119) 2A1D 3D DEC A 2A1E FEFF CP $FF 2A20 C2272A JP NZ,$2A27 2A23 3AF93A LD A,($3AF9) 2A26 3C INC A 2A27 5F LD E,A 2A28 4F LD C,A 2A29 1600 LD D,$00 2A2B CD2C2B CALL $2B2C 2A2E 3E03 LD A,$03 2A30 DE01 SBC A,$01 2A32 32BD33 LD ($33BD),A 2A35 79 LD A,C 2A36 32062B LD ($2B06),A 2A39 2A3C1E LD HL,($1E3C) 2A3C EB EX DE,HL 2A3D CDC931 CALL $31C9 2A40 CD122B CALL $2B12 2A43 DA602A JP C,$2A60 2A46 CDFF26 CALL $26FF 2A49 2A7B1F LD HL,($1F7B) 2A4C 2B DEC HL 2A4D 7D LD A,L 2A4E B4 OR H 2A4F CA602A JP Z,$2A60 2A52 3A8215 LD A,($1582) 2A55 B7 OR A 2A56 C2602A JP NZ,$2A60 2A59 3A0C01 LD A,($010C) 2A5C B7 OR A 2A5D CA802A JP Z,$2A80 2A60 CD6338 CALL $3863 2A63 CDF628 CALL $28F6 2A66 CD6838 CALL $3868 2A69 2041 JR NZ,$2AAC 2A6B 74 LD (HL),H 2A6C BA CP D 2A6D 2A3C1E LD HL,($1E3C) 2A70 E5 PUSH HL 2A71 CDBA2F CALL $2FBA 2A74 CD6838 CALL $3868 2A77 AD XOR L 2A78 E1 POP HL 2A79 117F00 LD DE,$007F 2A7C 19 ADD HL,DE 2A7D CDBA2F CALL $2FBA 2A80 CD122B CALL $2B12 2A83 DA332B JP C,$2B33 2A86 3AEF14 LD A,($14EF) 2A89 B7 OR A 2A8A CA332B JP Z,$2B33 2A8D FE1F CP $1F 2A8F F5 PUSH AF 2A90 CCB033 CALL Z,$33B0 2A93 F1 POP AF 2A94 C4BA33 CALL NZ,$33BA 2A97 3AEF14 LD A,($14EF) 2A9A F5 PUSH AF 2A9B 2A3C1E LD HL,($1E3C) 2A9E E5 PUSH HL 2A9F 217000 LD HL,$0070 2AA2 223C1E LD ($1E3C),HL 2AA5 218000 LD HL,$0080 2AA8 7D LD A,L 2AA9 E60F AND $0F 2AAB 322F15 LD ($152F),A 2AAE 3A8215 LD A,($1582) 2AB1 32EF14 LD ($14EF),A 2AB4 B7 OR A 2AB5 CAD22A JP Z,$2AD2 2AB8 F5 PUSH AF 2AB9 3A0C01 LD A,($010C) 2ABC B7 OR A 2ABD F5 PUSH AF 2ABE C46338 CALL NZ,$3863 2AC1 CD0714 CALL $1407 2AC4 F1 POP AF 2AC5 CACD2A JP Z,$2ACD 2AC8 CD6838 CALL $3868 2ACB 0D DEC C 2ACC 8D ADC A,L 2ACD F1 POP AF 2ACE 210000 LD HL,$0000 2AD1 E3 EX (SP),HL 2AD2 E1 POP HL 2AD3 223C1E LD ($1E3C),HL 2AD6 F1 POP AF 2AD7 32EF14 LD ($14EF),A 2ADA 2A3C1E LD HL,($1E3C) 2ADD 118000 LD DE,$0080 2AE0 19 ADD HL,DE 2AE1 223C1E LD ($1E3C),HL 2AE4 2A7B1F LD HL,($1F7B) 2AE7 2B DEC HL 2AE8 227B1F LD ($1F7B),HL 2AEB 7D LD A,L 2AEC B4 OR H 2AED CAD304 JP Z,$04D3 2AF0 CDC728 CALL $28C7 2AF3 D2052B JP NC,$2B05 2AF6 AF XOR A 2AF7 32EF14 LD ($14EF),A 2AFA 67 LD H,A 2AFB 3A1E27 LD A,($271E) 2AFE 6F LD L,A 2AFF 22CD30 LD ($30CD),HL 2B02 C3602A JP $2A60 2B05 3E01 LD A,$01 2B07 3D DEC A 2B08 32062B LD ($2B06),A 2B0B B7 OR A 2B0C CA172A JP Z,$2A17 2B0F C3392A JP $2A39 2B12 2A0027 LD HL,($2700) 2B15 EB EX DE,HL 2B16 2A2532 LD HL,($3225) 2B19 CD2C2B CALL $2B2C 2B1C D8 RET C 2B1D 7D LD A,L 2B1E B4 OR H 2B1F 2A0627 LD HL,($2706) 2B22 EB EX DE,HL 2B23 2AF73A LD HL,($3AF7) 2B26 C22C2B JP NZ,$2B2C 2B29 211400 LD HL,$0014 2B2C 7D LD A,L 2B2D 93 SUB E 2B2E 6F LD L,A 2B2F 7C LD A,H 2B30 9A SBC A,D 2B31 67 LD H,A 2B32 C9 RET 2B33 CD6838 CALL $3868 2B36 07 RLCA 2B37 03 INC BC 2B38 4F LD C,A 2B39 75 LD (HL),L 2B3A 74 LD (HL),H 2B3B 206F JR NZ,$2BAC 2B3D 66 LD H,(HL) 2B3E 2005 JR NZ,$2B45 2B40 62 LD H,D 2B41 6F LD L,A 2B42 75 LD (HL),L 2B43 6E LD L,(HL) 2B44 64 LD H,H 2B45 73 LD (HL),E 2B46 00 NOP 2B47 CD1F2F CALL $2F1F 2B4A 2A3C1E LD HL,($1E3C) 2B4D E5 PUSH HL 2B4E CD8B2B CALL $2B8B 2B51 CD6838 CALL $3868 2B54 204C JR NZ,$2BA2 2B56 61 LD H,C 2B57 73 LD (HL),E 2B58 74 LD (HL),H 2B59 2041 JR NZ,$2B9C 2B5B 64 LD H,H 2B5C 64 LD H,H 2B5D 72 LD (HL),D 2B5E 65 LD H,L 2B5F 73 LD (HL),E 2B60 73 LD (HL),E 2B61 BA CP D 2B62 2A3C1E LD HL,($1E3C) 2B65 D1 POP DE 2B66 7C LD A,H 2B67 BA CP D 2B68 C2702B JP NZ,$2B70 2B6B 7D LD A,L 2B6C BB CP E 2B6D CA712B JP Z,$2B71 2B70 2B DEC HL 2B71 CDBA2F CALL $2FBA 2B74 CD6838 CALL $3868 2B77 48 LD C,B 2B78 A0 AND B 2B79 CDC631 CALL $31C6 2B7C CDB02B CALL $2BB0 2B7F 2A273B LD HL,($3B27) 2B82 CDDF2F CALL $2FDF 2B85 CD6838 CALL $3868 2B88 2001 JR NZ,$2B8B 2B8A 00 NOP 2B8B 115C00 LD DE,$005C 2B8E CDD631 CALL $31D6 2B91 2A3C1E LD HL,($1E3C) 2B94 EB EX DE,HL 2B95 CDC931 CALL $31C9 2B98 115C00 LD DE,$005C 2B9B CD1132 CALL $3211 2B9E 3D DEC A 2B9F C8 RET Z 2BA0 2A3C1E LD HL,($1E3C) 2BA3 118000 LD DE,$0080 2BA6 19 ADD HL,DE 2BA7 223C1E LD ($1E3C),HL 2BAA C3912B JP $2B91 2BAD CD1F2F CALL $2F1F 2BB0 215C00 LD HL,$005C 2BB3 112A3B LD DE,$3B2A 2BB6 D5 PUSH DE 2BB7 CDBA37 CALL $37BA 2BBA E1 POP HL 2BBB E5 PUSH HL 2BBC 11063B LD DE,$3B06 2BBF CDBA37 CALL $37BA 2BC2 D1 POP DE 2BC3 CD9F31 CALL $319F 2BC6 C2D42B JP NZ,$2BD4 2BC9 3AEF14 LD A,($14EF) 2BCC FE1D CP $1D 2BCE C2DF31 JP NZ,$31DF 2BD1 C3022C JP $2C02 2BD4 D5 PUSH DE 2BD5 CD3030 CALL $3030 2BD8 D1 POP DE 2BD9 CD601B CALL $1B60 2BDC 3AEF14 LD A,($14EF) 2BDF FE1D CP $1D 2BE1 C0 RET NZ 2BE2 3AD60B LD A,($0BD6) 2BE5 B7 OR A 2BE6 F2EF2B JP P,$2BEF 2BE9 CD6D31 CALL $316D 2BEC C3D304 JP $04D3 2BEF 2A7B1F LD HL,($1F7B) 2BF2 23 INC HL 2BF3 7D LD A,L 2BF4 B4 OR H 2BF5 C2FF2B JP NZ,$2BFF 2BF8 2A273B LD HL,($3B27) 2BFB 23 INC HL 2BFC 227B1F LD ($1F7B),HL 2BFF CDBE31 CALL $31BE 2C02 2A7B1F LD HL,($1F7B) 2C05 23 INC HL 2C06 7D LD A,L 2C07 B4 OR H 2C08 CABA3A JP Z,$3ABA 2C0B CDAF31 CALL $31AF 2C0E 2A7B1F LD HL,($1F7B) 2C11 2B DEC HL 2C12 227B1F LD ($1F7B),HL 2C15 7D LD A,L 2C16 B4 OR H 2C17 CA302C JP Z,$2C30 2C1A 2A3C1E LD HL,($1E3C) 2C1D E5 PUSH HL 2C1E EB EX DE,HL 2C1F CDC931 CALL $31C9 2C22 E1 POP HL 2C23 118000 LD DE,$0080 2C26 19 ADD HL,DE 2C27 223C1E LD ($1E3C),HL 2C2A CD8535 CALL $3585 2C2D C30E2C JP $2C0E 2C30 CDF131 CALL $31F1 2C33 C3D304 JP $04D3 2C36 CD1F2F CALL $2F1F 2C39 EB EX DE,HL 2C3A 227B1F LD ($1F7B),HL 2C3D 318A3B LD SP,$3B8A 2C40 212404 LD HL,$0424 2C43 E5 PUSH HL 2C44 2A3C1E LD HL,($1E3C) 2C47 E5 PUSH HL 2C48 CD8B2B CALL $2B8B 2C4B 2A7B1F LD HL,($1F7B) 2C4E C9 RET 2C4F CD082D CALL $2D08 2C52 7C LD A,H 2C53 B5 OR L 2C54 CAD304 JP Z,$04D3 2C57 E5 PUSH HL 2C58 2A7B1F LD HL,($1F7B) 2C5B 78 LD A,B 2C5C BC CP H 2C5D DA7C2C JP C,$2C7C 2C60 C2682C JP NZ,$2C68 2C63 79 LD A,C 2C64 BD CP L 2C65 DA7C2C JP C,$2C7C 2C68 D1 POP DE 2C69 19 ADD HL,DE 2C6A E5 PUSH HL 2C6B 60 LD H,B 2C6C 69 LD L,C 2C6D 19 ADD HL,DE 2C6E 44 LD B,H 2C6F 4D LD C,L 2C70 E1 POP HL 2C71 13 INC DE 2C72 7E LD A,(HL) 2C73 02 LD (BC),A 2C74 0B DEC BC 2C75 2B DEC HL 2C76 CD182F CALL $2F18 2C79 C3722C JP $2C72 2C7C D1 POP DE 2C7D 13 INC DE 2C7E 7E LD A,(HL) 2C7F 02 LD (BC),A 2C80 23 INC HL 2C81 03 INC BC 2C82 CD182F CALL $2F18 2C85 C37E2C JP $2C7E 2C88 CD792F CALL $2F79 2C8B CAA42C JP Z,$2CA4 2C8E FE2C CP $2C 2C90 C2B52C JP NZ,$2CB5 2C93 CD782F CALL $2F78 2C96 CAA42C JP Z,$2CA4 2C99 CD2620 CALL $2026 2C9C 2B DEC HL 2C9D EB EX DE,HL 2C9E 2AA82C LD HL,($2CA8) 2CA1 C3FE2C JP $2CFE 2CA4 117000 LD DE,$0070 2CA7 210000 LD HL,$0000 2CAA 7D LD A,L 2CAB E60F AND $0F 2CAD 2F CPL 2CAE E60F AND $0F 2CB0 83 ADD A,E 2CB1 5F LD E,A 2CB2 C3FE2C JP $2CFE 2CB5 CD2620 CALL $2026 2CB8 227B1F LD ($1F7B),HL 2CBB EB EX DE,HL 2CBC FE2C CP $2C 2CBE CADA2C JP Z,$2CDA 2CC1 D5 PUSH DE 2CC2 CD792F CALL $2F79 2CC5 D1 POP DE 2CC6 CAD42C JP Z,$2CD4 2CC9 FE2C CP $2C 2CCB CADA2C JP Z,$2CDA 2CCE CD122D CALL $2D12 2CD1 C3FA2C JP $2CFA 2CD4 210000 LD HL,$0000 2CD7 C3FA2C JP $2CFA 2CDA CD782F CALL $2F78 2CDD CAE72C JP Z,$2CE7 2CE0 CD2620 CALL $2026 2CE3 2B DEC HL 2CE4 C3FA2C JP $2CFA 2CE7 217000 LD HL,$0070 2CEA 3A7B1F LD A,($1F7B) 2CED E60F AND $0F 2CEF 2F CPL 2CF0 E60F AND $0F 2CF2 85 ADD A,L 2CF3 6F LD L,A 2CF4 C3FA2C JP $2CFA 2CF7 CD082D CALL $2D08 2CFA EB EX DE,HL 2CFB 2A7B1F LD HL,($1F7B) 2CFE 223C1E LD ($1E3C),HL 2D01 EB EX DE,HL 2D02 23 INC HL 2D03 227B1F LD ($1F7B),HL 2D06 EB EX DE,HL 2D07 C9 RET 2D08 CD2620 CALL $2026 2D0B 227B1F LD ($1F7B),HL 2D0E EB EX DE,HL 2D0F CDAF3A CALL $3AAF 2D12 CD2620 CALL $2026 2D15 223C1E LD ($1E3C),HL 2D18 EB EX DE,HL 2D19 3AEF14 LD A,($14EF) 2D1C FE27 CP $27 2D1E CA2B2D JP Z,$2D2B 2D21 FE29 CP $29 2D23 CA2B2D JP Z,$2D2B 2D26 FE28 CP $28 2D28 C2312D JP NZ,$2D31 2D2B CDAF3A CALL $3AAF 2D2E CD2620 CALL $2026 2D31 E5 PUSH HL 2D32 C1 POP BC 2D33 2A3C1E LD HL,($1E3C) 2D36 E5 PUSH HL 2D37 54 LD D,H 2D38 5D LD E,L 2D39 2A7B1F LD HL,($1F7B) 2D3C EB EX DE,HL 2D3D CD2C2B CALL $2B2C 2D40 D1 POP DE 2D41 DABA3A JP C,$3ABA 2D44 C9 RET 2D45 CD882C CALL $2C88 2D48 3E85 LD A,$85 2D4A C3622D JP $2D62 2D4D CD882C CALL $2C88 2D50 3E88 LD A,$88 2D52 C3622D JP $2D62 2D55 CD882C CALL $2C88 2D58 3E86 LD A,$86 2D5A C3622D JP $2D62 2D5D CD882C CALL $2C88 2D60 3E87 LD A,$87 2D62 32EF14 LD ($14EF),A 2D65 C35C13 JP $135C 2D68 CDF72C CALL $2CF7 2D6B AF XOR A 2D6C 32E41E LD ($1EE4),A 2D6F 2A0E03 LD HL,($030E) 2D72 22771E LD ($1E77),HL 2D75 60 LD H,B 2D76 69 LD L,C 2D77 CDAE3A CALL $3AAE 2D7A 3AE41E LD A,($1EE4) 2D7D B7 OR A 2D7E F4792F CALL P,$2F79 2D81 CAEB2D JP Z,$2DEB 2D84 F28F2D JP P,$2D8F 2D87 23 INC HL 2D88 7E LD A,(HL) 2D89 2B DEC HL 2D8A B7 OR A 2D8B CAEB2D JP Z,$2DEB 2D8E 7E LD A,(HL) 2D8F 4F LD C,A 2D90 FE22 CP $22 2D92 CAE02D JP Z,$2DE0 2D95 0600 LD B,$00 2D97 FE3F CP $3F 2D99 CAB52D JP Z,$2DB5 2D9C 3AE41E LD A,($1EE4) 2D9F B7 OR A 2DA0 FAC12D JP M,$2DC1 2DA3 CD2620 CALL $2026 2DA6 7C LD A,H 2DA7 B7 OR A 2DA8 C2BA3A JP NZ,$3ABA 2DAB CDB63A CALL $3AB6 2DAE 4D LD C,L 2DAF EB EX DE,HL 2DB0 0680 LD B,$80 2DB2 C3C12D JP $2DC1 2DB5 063F LD B,$3F 2DB7 3AE41E LD A,($1EE4) 2DBA B7 OR A 2DBB FAC12D JP M,$2DC1 2DBE 06BF LD B,$BF 2DC0 23 INC HL 2DC1 E5 PUSH HL 2DC2 2A771E LD HL,($1E77) 2DC5 71 LD (HL),C 2DC6 24 INC H 2DC7 70 LD (HL),B 2DC8 23 INC HL 2DC9 70 LD (HL),B 2DCA 25 DEC H 2DCB 22771E LD ($1E77),HL 2DCE E1 POP HL 2DCF 3AE41E LD A,($1EE4) 2DD2 B7 OR A 2DD3 FAE72D JP M,$2DE7 2DD6 7E LD A,(HL) 2DD7 FE20 CP $20 2DD9 CA7A2D JP Z,$2D7A 2DDC 23 INC HL 2DDD C3D62D JP $2DD6 2DE0 3AE41E LD A,($1EE4) 2DE3 2F CPL 2DE4 32E41E LD ($1EE4),A 2DE7 23 INC HL 2DE8 C37A2D JP $2D7A 2DEB 2A0E03 LD HL,($030E) 2DEE EB EX DE,HL 2DEF 2A771E LD HL,($1E77) 2DF2 42 LD B,D 2DF3 4B LD C,E 2DF4 CD2C2B CALL $2B2C 2DF7 EB EX DE,HL 2DF8 2A3C1E LD HL,($1E3C) 2DFB E5 PUSH HL 2DFC 2A7B1F LD HL,($1F7B) 2DFF 7C LD A,H 2E00 B5 OR L 2E01 2B DEC HL 2E02 227B1F LD ($1F7B),HL 2E05 C2132E JP NZ,$2E13 2E08 C3192E JP $2E19 2E0B E5 PUSH HL 2E0C 2A7B1F LD HL,($1F7B) 2E0F 2B DEC HL 2E10 227B1F LD ($1F7B),HL 2E13 23 INC HL 2E14 7C LD A,H 2E15 B5 OR L 2E16 CAD304 JP Z,$04D3 2E19 D5 PUSH DE 2E1A CD2C2B CALL $2B2C 2E1D DAD304 JP C,$04D3 2E20 D1 POP DE 2E21 E1 POP HL 2E22 0A LD A,(BC) 2E23 BE CP (HL) 2E24 CA312E JP Z,$2E31 2E27 04 INC B 2E28 0A LD A,(BC) 2E29 E67F AND $7F 2E2B 05 DEC B 2E2C FE3F CP $3F 2E2E C24E2E JP NZ,$2E4E 2E31 E5 PUSH HL 2E32 D5 PUSH DE 2E33 C5 PUSH BC 2E34 23 INC HL 2E35 03 INC BC 2E36 1B DEC DE 2E37 7A LD A,D 2E38 B3 OR E 2E39 CA522E JP Z,$2E52 2E3C 0A LD A,(BC) 2E3D BE CP (HL) 2E3E CA342E JP Z,$2E34 2E41 04 INC B 2E42 0A LD A,(BC) 2E43 05 DEC B 2E44 E67F AND $7F 2E46 FE3F CP $3F 2E48 CA342E JP Z,$2E34 2E4B C1 POP BC 2E4C D1 POP DE 2E4D E1 POP HL 2E4E 23 INC HL 2E4F C30B2E JP $2E0B 2E52 C1 POP BC 2E53 D1 POP DE 2E54 E1 POP HL 2E55 CD6338 CALL $3863 2E58 CDBA2F CALL $2FBA 2E5B CD6838 CALL $3868 2E5E 3AA0E5 LD A,($E5A0) 2E61 D5 PUSH DE 2E62 C5 PUSH BC 2E63 04 INC B 2E64 0A LD A,(BC) 2E65 B7 OR A 2E66 3E22 LD A,$22 2E68 F4EF38 CALL P,$38EF 2E6B 0A LD A,(BC) 2E6C B7 OR A 2E6D 7E LD A,(HL) 2E6E F27C2E JP P,$2E7C 2E71 E5 PUSH HL 2E72 CDB42F CALL $2FB4 2E75 CDED38 CALL $38ED 2E78 E1 POP HL 2E79 C3972E JP $2E97 2E7C CDA021 CALL $21A0 2E7F D2942E JP NC,$2E94 2E82 F5 PUSH AF 2E83 CD6838 CALL $3868 2E86 BC CP H 2E87 F1 POP AF 2E88 E5 PUSH HL 2E89 CDB42F CALL $2FB4 2E8C E1 POP HL 2E8D CD6838 CALL $3868 2E90 BE CP (HL) 2E91 C3972E JP $2E97 2E94 CDEF38 CALL $38EF 2E97 23 INC HL 2E98 D5 PUSH DE 2E99 0A LD A,(BC) 2E9A 07 RLCA 2E9B E601 AND $01 2E9D 5F LD E,A 2E9E 03 INC BC 2E9F 0A LD A,(BC) 2EA0 07 RLCA 2EA1 E601 AND $01 2EA3 AB XOR E 2EA4 CAB02E JP Z,$2EB0 2EA7 CD6838 CALL $3868 2EAA A2 AND D 2EAB 0A LD A,(BC) 2EAC B7 OR A 2EAD FCED38 CALL M,$38ED 2EB0 D1 POP DE 2EB1 1B DEC DE 2EB2 7A LD A,D 2EB3 B3 OR E 2EB4 C26B2E JP NZ,$2E6B 2EB7 0A LD A,(BC) 2EB8 B7 OR A 2EB9 3E22 LD A,$22 2EBB F4EF38 CALL P,$38EF 2EBE C1 POP BC 2EBF D1 POP DE 2EC0 E1 POP HL 2EC1 C34E2E JP $2E4E 2EC4 CD082D CALL $2D08 2EC7 7C LD A,H 2EC8 B5 OR L 2EC9 CAD304 JP Z,$04D3 2ECC 23 INC HL 2ECD EB EX DE,HL 2ECE 2A7B1F LD HL,($1F7B) 2ED1 0A LD A,(BC) 2ED2 BE CP (HL) 2ED3 CAFB2E JP Z,$2EFB 2ED6 E5 PUSH HL 2ED7 F5 PUSH AF 2ED8 7E LD A,(HL) 2ED9 F5 PUSH AF 2EDA CD6338 CALL $3863 2EDD CDBA2F CALL $2FBA 2EE0 CD6838 CALL $3868 2EE3 3AA0F1 LD A,($F1A0) 2EE6 CDB42F CALL $2FB4 2EE9 CDED38 CALL $38ED 2EEC F1 POP AF 2EED CDB42F CALL $2FB4 2EF0 CD6838 CALL $3868 2EF3 20BA JR NZ,$2EAF 2EF5 C5 PUSH BC 2EF6 E1 POP HL 2EF7 CDBA2F CALL $2FBA 2EFA E1 POP HL 2EFB 23 INC HL 2EFC 03 INC BC 2EFD CD182F CALL $2F18 2F00 C3D12E JP $2ED1 2F03 CD082D CALL $2D08 2F06 78 LD A,B 2F07 B7 OR A 2F08 C2BA3A JP NZ,$3ABA 2F0B EB EX DE,HL 2F0C 13 INC DE 2F0D 2A7B1F LD HL,($1F7B) 2F10 71 LD (HL),C 2F11 23 INC HL 2F12 CD182F CALL $2F18 2F15 C3102F JP $2F10 2F18 1B DEC DE 2F19 7A LD A,D 2F1A B3 OR E 2F1B CAD304 JP Z,$04D3 2F1E C9 RET 2F1F 2A0E03 LD HL,($030E) 2F22 23 INC HL 2F23 7E LD A,(HL) 2F24 FE20 CP $20 2F26 C2222F JP NZ,$2F22 2F29 CDAF3A CALL $3AAF 2F2C CD4E30 CALL $304E 2F2F 21FFFF LD HL,$FFFF 2F32 227B1F LD ($1F7B),HL 2F35 21993B LD HL,$3B99 2F38 CDAF3A CALL $3AAF 2F3B CD2620 CALL $2026 2F3E 223C1E LD ($1E3C),HL 2F41 21FFFF LD HL,$FFFF 2F44 227B1F LD ($1F7B),HL 2F47 EB EX DE,HL 2F48 CD782F CALL $2F78 2F4B C8 RET Z 2F4C 3AEF14 LD A,($14EF) 2F4F FE1D CP $1D 2F51 C0 RET NZ 2F52 CDC70F CALL $0FC7 2F55 1A LD A,(DE) 2F56 FE20 CP $20 2F58 C0 RET NZ 2F59 23 INC HL 2F5A 227B1F LD ($1F7B),HL 2F5D C9 RET 2F5E CD6838 CALL $3868 2F61 03 INC BC 2F62 6D LD L,L 2F63 65 LD H,L 2F64 6D LD L,L 2F65 6F LD L,A 2F66 72 LD (HL),D 2F67 79 LD A,C 2F68 2066 JR NZ,$2FD0 2F6A 75 LD (HL),L 2F6B 6C LD L,H 2F6C 6C LD L,H 2F6D 03 INC BC 2F6E 0D DEC C 2F6F 00 NOP 2F70 B7 OR A 2F71 7C LD A,H 2F72 1F RRA 2F73 67 LD H,A 2F74 7D LD A,L 2F75 1F RRA 2F76 6F LD L,A 2F77 C9 RET 2F78 23 INC HL 2F79 7E LD A,(HL) 2F7A FE20 CP $20 2F7C CA782F JP Z,$2F78 2F7F FE3B CP $3B 2F81 C8 RET Z 2F82 B7 OR A 2F83 C9 RET 2F84 C5 PUSH BC 2F85 0608 LD B,$08 2F87 07 RLCA 2F88 F5 PUSH AF 2F89 3E30 LD A,$30 2F8B CE00 ADC A,$00 2F8D CDEF38 CALL $38EF 2F90 F1 POP AF 2F91 05 DEC B 2F92 C2872F JP NZ,$2F87 2F95 C1 POP BC 2F96 C9 RET 2F97 0E01 LD C,$01 2F99 C39E2F JP $2F9E 2F9C 0EFF LD C,$FF 2F9E E67F AND $7F 2FA0 6F LD L,A 2FA1 2600 LD H,$00 2FA3 C3F32F JP $2FF3 2FA6 0E30 LD C,$30 2FA8 E5 PUSH HL 2FA9 D5 PUSH DE 2FAA C5 PUSH BC 2FAB 6F LD L,A 2FAC 2600 LD H,$00 2FAE CDED2F CALL $2FED 2FB1 C34338 JP $3843 2FB4 6F LD L,A 2FB5 AF XOR A 2FB6 67 LD H,A 2FB7 C3BC2F JP $2FBC 2FBA 3EFF LD A,$FF 2FBC 32C52F LD ($2FC5),A 2FBF E5 PUSH HL 2FC0 D5 PUSH DE 2FC1 C5 PUSH BC 2FC2 0EFF LD C,$FF 2FC4 3E00 LD A,$00 2FC6 B7 OR A 2FC7 CAD62F JP Z,$2FD6 2FCA 1100F0 LD DE,$F000 2FCD CDFE2F CALL $2FFE 2FD0 1100FF LD DE,$FF00 2FD3 CDFE2F CALL $2FFE 2FD6 11F0FF LD DE,$FFF0 2FD9 CDF62F CALL $2FF6 2FDC C34338 JP $3843 2FDF 0E30 LD C,$30 2FE1 11F0D8 LD DE,$D8F0 2FE4 CDFE2F CALL $2FFE 2FE7 1118FC LD DE,$FC18 2FEA CDFE2F CALL $2FFE 2FED 119CFF LD DE,$FF9C 2FF0 CDFE2F CALL $2FFE 2FF3 11F6FF LD DE,$FFF6 2FF6 CDFE2F CALL $2FFE 2FF9 11FFFF LD DE,$FFFF 2FFC 0EFF LD C,$FF 2FFE 062F LD B,$2F 3000 220930 LD ($3009),HL 3003 04 INC B 3004 19 ADD HL,DE 3005 DA0030 JP C,$3000 3008 210000 LD HL,$0000 300B 78 LD A,B 300C B9 CP C 300D CAED38 JP Z,$38ED 3010 0D DEC C 3011 CA2130 JP Z,$3021 3014 0EFF LD C,$FF 3016 FE3A CP $3A 3018 DAEF38 JP C,$38EF 301B C607 ADD A,$07 301D 47 LD B,A 301E C3EF38 JP $38EF 3021 F5 PUSH AF 3022 D630 SUB $30 3024 B9 CP C 3025 0E01 LD C,$01 3027 CA2E30 JP Z,$302E 302A F1 POP AF 302B C31430 JP $3014 302E F1 POP AF 302F C9 RET 3030 E603 AND $03 3032 87 ADD A,A 3033 87 ADD A,A 3034 87 ADD A,A 3035 87 ADD A,A 3036 87 ADD A,A 3037 5F LD E,A 3038 1600 LD D,$00 303A 218000 LD HL,$0080 303D 19 ADD HL,DE 303E E5 PUSH HL 303F 3E09 LD A,$09 3041 85 ADD A,L 3042 6F LD L,A 3043 7E LD A,(HL) 3044 32D60B LD ($0BD6),A 3047 23 INC HL 3048 7E LD A,(HL) 3049 32E80B LD ($0BE8),A 304C E1 POP HL 304D C9 RET 304E 3A5C00 LD A,($005C) 3051 CD300E CALL $0E30 3054 325C00 LD ($005C),A 3057 E5 PUSH HL 3058 CDC631 CALL $31C6 305B 3E00 LD A,$00 305D B7 OR A 305E CA7630 JP Z,$3076 3061 3E01 LD A,$01 3063 32E534 LD ($34E5),A 3066 AF XOR A 3067 325C30 LD ($305C),A 306A 5F LD E,A 306B CD2001 CALL $0120 306E 11E534 LD DE,$34E5 3071 0E0D LD C,$0D 3073 CD0633 CALL $3306 3076 0E18 LD C,$18 3078 CD0500 CALL $0005 307B 3A5C00 LD A,($005C) 307E 5F LD E,A 307F 011000 LD BC,$0010 3082 0D DEC C 3083 FA9E30 JP M,$309E 3086 04 INC B 3087 CD702F CALL $2F70 308A D28230 JP NC,$3082 308D 78 LD A,B 308E BB CP E 308F C28230 JP NZ,$3082 3092 3AF308 LD A,($08F3) 3095 BB CP E 3096 CA9E30 JP Z,$309E 3099 1E01 LD E,$01 309B C3A030 JP $30A0 309E 1E00 LD E,$00 30A0 3A5C00 LD A,($005C) 30A3 CDD630 CALL $30D6 30A6 CABC30 JP Z,$30BC 30A9 DABF30 JP C,$30BF 30AC 5E LD E,(HL) 30AD 23 INC HL 30AE 56 LD D,(HL) 30AF 23 INC HL 30B0 EB EX DE,HL 30B1 222827 LD ($2728),HL 30B4 210800 LD HL,$0008 30B7 19 ADD HL,DE 30B8 7E LD A,(HL) 30B9 23 INC HL 30BA 66 LD H,(HL) 30BB 6F LD L,A 30BC CD3B32 CALL $323B 30BF 2A043B LD HL,($3B04) 30C2 EB EX DE,HL 30C3 CD2332 CALL $3223 30C6 110100 LD DE,$0001 30C9 CD0827 CALL $2708 30CC 210100 LD HL,$0001 30CF 7C LD A,H 30D0 B5 OR L 30D1 321E27 LD ($271E),A 30D4 E1 POP HL 30D5 C9 RET 30D6 32E534 LD ($34E5),A 30D9 3D DEC A 30DA 4F LD C,A 30DB 3A1601 LD A,($0116) 30DE 3C INC A 30DF C2E630 JP NZ,$30E6 30E2 79 LD A,C 30E3 F680 OR $80 30E5 4F LD C,A 30E6 CD1BCA CALL $CA1B ; *** call address directly modified at beginning of this program to hold addr of BIOS SELDSK 30E9 CDB70D CALL $0DB7 30EC C8 RET Z 30ED AF XOR A 30EE 32F308 LD ($08F3),A 30F1 7C LD A,H 30F2 B5 OR L 30F3 C0 RET NZ 30F4 CD6838 CALL $3868 30F7 0D DEC C 30F8 07 RLCA 30F9 44 LD B,H 30FA 69 LD L,C 30FB 73 LD (HL),E 30FC 6B LD L,E 30FD 206C JR NZ,$316B 30FF 6F LD L,A 3100 67 LD H,A 3101 2045 JR NZ,$3148 3103 52 LD D,D 3104 52 LD D,D 3105 4F LD C,A 3106 52 LD D,D 3107 206F JR NZ,$3178 3109 6E LD L,(HL) 310A A0 AND B 310B 3A5C00 LD A,($005C) 310E 32F308 LD ($08F3),A 3111 F5 PUSH AF 3112 CD7B35 CALL $357B 3115 CD6838 CALL $3868 3118 2C INC L 3119 206C JR NZ,$3187 311B 6F LD L,A 311C 67 LD H,A 311D 69 LD L,C 311E 6E LD L,(HL) 311F 67 LD H,A 3120 2074 JR NZ,$3196 3122 6F LD L,A 3123 2064 JR NZ,$3189 3125 72 LD (HL),D 3126 69 LD L,C 3127 76 HALT 3128 65 LD H,L 3129 206F JR NZ,$319A 312B 6E LD L,(HL) 312C 6C LD L,H 312D F9 LD SP,HL 312E F1 POP AF 312F B7 OR A 3130 3F CCF 3131 C9 RET 3132 3A8508 LD A,($0885) 3135 B7 OR A 3136 CA3F31 JP Z,$313F 3139 318A3B LD SP,$3B8A 313C C39708 JP $0897 313F CD6838 CALL $3868 3142 0D DEC C 3143 02 LD (BC),A 3144 4C LD C,H 3145 4F LD C,A 3146 C7 RST $00 3147 CD6838 CALL $3868 314A 206F JR NZ,$31BB 314C 6E LD L,(HL) 314D A0 AND B 314E 3AE534 LD A,($34E5) 3151 B7 OR A 3152 C25831 JP NZ,$3158 3155 3A5C00 LD A,($005C) 3158 CD7B35 CALL $357B 315B 3A7525 LD A,($2575) 315E 325C00 LD ($005C),A 3161 CD7036 CALL $3670 3164 C3D304 JP $04D3 3167 CD6D31 CALL $316D 316A C39610 JP $1096 316D CD6838 CALL $3868 3170 03 INC BC 3171 04 INC B 3172 2069 JR NZ,$31DD 3174 73 LD (HL),E 3175 2024 JR NZ,$319B 3177 52 LD D,D 3178 2F CPL 3179 CF RST $08 317A C9 RET 317B CD1033 CALL $3310 317E CD9F31 CALL $319F 3181 C0 RET NZ 3182 CD8408 CALL $0884 3185 CA8C31 JP Z,$318C 3188 E1 POP HL 3189 C35B08 JP $085B 318C CD6838 CALL $3868 318F 0D DEC C 3190 4E LD C,(HL) 3191 6F LD L,A 3192 2004 JR NZ,$3198 3194 73 LD (HL),E 3195 A0 AND B 3196 215D00 LD HL,$005D 3199 CD180C CALL $0C18 319C C34731 JP $3147 319F 0E11 LD C,$11 ; code of BDOS function Search for First (?) 31A1 D5 PUSH DE 31A2 CDA931 CALL $31A9 31A5 D1 POP DE 31A6 C9 RET 31A7 0E12 LD C,$12 ; code of BDOS function Search for Next (?) 31A9 CD0633 CALL $3306 31AC FEFF CP $FF ; check if BDOS function Search for First/Next returned Not Found 31AE C9 RET 31AF 112A3B LD DE,$3B2A 31B2 0E16 LD C,$16 31B4 CD1033 CALL $3310 31B7 CDA931 CALL $31A9 31BA C0 RET NZ 31BB C39735 JP $3597 31BE 112A3B LD DE,$3B2A 31C1 0E13 LD C,$13 31C3 C3A931 JP $31A9 31C6 118000 LD DE,$0080 31C9 0E1A LD C,$1A 31CB C30500 JP $0005 ; call BDOS function $1A (Set DMA Address) 31CE 112A3B LD DE,$3B2A 31D1 0E17 LD C,$17 31D3 C3A931 JP $31A9 31D6 0E0F LD C,$0F 31D8 CD1033 CALL $3310 31DB CDA931 CALL $31A9 31DE C0 RET NZ 31DF CD6838 CALL $3868 31E2 03 INC BC 31E3 04 INC B 31E4 206E JR NZ,$3254 31E6 6F LD L,A 31E7 74 LD (HL),H 31E8 2066 JR NZ,$3250 31EA 6F LD L,A 31EB 75 LD (HL),L 31EC 6E LD L,(HL) 31ED E4C347 CALL PO,$47C3 31F0 31112A LD SP,$2A11 31F3 3B DEC SP 31F4 D5 PUSH DE 31F5 CDC631 CALL $31C6 31F8 D1 POP DE 31F9 0E10 LD C,$10 31FB CDA931 CALL $31A9 31FE C0 RET NZ 31FF CD6838 CALL $3868 3202 03 INC BC 3203 02 LD (BC),A 3204 63 LD H,E 3205 6C LD L,H 3206 6F LD L,A 3207 73 LD (HL),E 3208 65 LD H,L 3209 2084 JR NZ,$318F 320B CD7036 CALL $3670 320E C3A435 JP $35A4 3211 3EFE LD A,$FE 3213 32A616 LD ($16A6),A 3216 0E14 LD C,$14 3218 CD0633 CALL $3306 321B F5 PUSH AF 321C AF XOR A 321D 32A616 LD ($16A6),A 3220 F1 POP AF 3221 B7 OR A 3222 C9 RET 3223 E5 PUSH HL 3224 214C00 LD HL,$004C 3227 CD2C2B CALL $2B2C 322A E1 POP HL 322B DA332B JP C,$2B33 322E EB EX DE,HL 322F 220027 LD ($2700),HL 3232 EB EX DE,HL 3233 42 LD B,D 3234 4B LD C,E 3235 E5 PUSH HL 3236 CD1ECA CALL $CA1E ; *** call address directly modified at beginning of this program to hold addr of BIOS SETTRK 3239 E1 POP HL 323A C9 RET 323B CDB70D CALL $0DB7 323E CA4C32 JP Z,$324C 3241 11F73A LD DE,$3AF7 3244 060F LD B,$0F 3246 CDBC37 CALL $37BC 3249 C38032 JP $3280 324C 2A0600 LD HL,($0006) 324F 2E00 LD L,$00 3251 113A00 LD DE,$003A 3254 19 ADD HL,DE 3255 5E LD E,(HL) 3256 23 INC HL 3257 EB EX DE,HL 3258 22F73A LD ($3AF7),HL 325B EB EX DE,HL 325C 5E LD E,(HL) 325D 23 INC HL 325E EB EX DE,HL 325F 22FE3A LD ($3AFE),HL 3262 EB EX DE,HL 3263 7E LD A,(HL) 3264 23 INC HL 3265 32F93A LD ($3AF9),A 3268 7E LD A,(HL) 3269 23 INC HL 326A 32FA3A LD ($3AFA),A 326D 5E LD E,(HL) 326E 23 INC HL 326F EB EX DE,HL 3270 22FC3A LD ($3AFC),HL 3273 EB EX DE,HL 3274 5E LD E,(HL) 3275 23 INC HL 3276 EB EX DE,HL 3277 22003B LD ($3B00),HL 327A EB EX DE,HL 327B 5E LD E,(HL) 327C EB EX DE,HL 327D 22043B LD ($3B04),HL 3280 21D132 LD HL,$32D1 3283 7E LD A,(HL) 3284 F5 PUSH AF 3285 3AFA3A LD A,($3AFA) 3288 77 LD (HL),A 3289 E5 PUSH HL 328A 2AFC3A LD HL,($3AFC) 328D EB EX DE,HL 328E CDC632 CALL $32C6 3291 222532 LD ($3225),HL 3294 EB EX DE,HL 3295 222A2B LD ($2B2A),HL 3298 E1 POP HL 3299 F1 POP AF 329A 77 LD (HL),A 329B 3A5C00 LD A,($005C) 329E F5 PUSH AF 329F E5 PUSH HL 32A0 D5 PUSH DE 32A1 C5 PUSH BC 32A2 32E534 LD ($34E5),A 32A5 11E534 LD DE,$34E5 32A8 CD7E34 CALL $347E 32AB 3D DEC A 32AC 5F LD E,A 32AD 0E0E LD C,$0E 32AF CD0500 CALL $0005 32B2 CD4634 CALL $3446 32B5 CD18CA CALL $CA18 ; *** call address directly modified at beginning of this program to hold addr of BIOS HOME 32B8 C1 POP BC 32B9 D1 POP DE 32BA E1 POP HL 32BB F1 POP AF 32BC C9 RET 32BD EB EX DE,HL 32BE 220A34 LD ($340A),HL 32C1 EB EX DE,HL 32C2 AF XOR A 32C3 32D132 LD ($32D1),A 32C6 62 LD H,D 32C7 6B LD L,E 32C8 3AF93A LD A,($3AF9) 32CB 29 ADD HL,HL 32CC 3D DEC A 32CD C2CB32 JP NZ,$32CB 32D0 3E04 LD A,$04 32D2 85 ADD A,L 32D3 6F LD L,A 32D4 EB EX DE,HL 32D5 2AF73A LD HL,($3AF7) 32D8 7D LD A,L 32D9 2F CPL 32DA 6F LD L,A 32DB 7C LD A,H 32DC 2F CPL 32DD 67 LD H,A 32DE 23 INC HL 32DF EB EX DE,HL 32E0 010000 LD BC,$0000 32E3 03 INC BC 32E4 19 ADD HL,DE 32E5 DAE332 JP C,$32E3 32E8 0B DEC BC 32E9 EB EX DE,HL 32EA 2AF73A LD HL,($3AF7) 32ED 19 ADD HL,DE 32EE E5 PUSH HL 32EF 2A043B LD HL,($3B04) 32F2 09 ADD HL,BC 32F3 EB EX DE,HL 32F4 E1 POP HL 32F5 23 INC HL 32F6 220627 LD ($2706),HL 32F9 EB EX DE,HL 32FA 220027 LD ($2700),HL 32FD C9 RET 32FE E67F AND $7F 3300 5F LD E,A 3301 0E20 LD C,$20 3303 C30500 JP $0005 3306 CD7E34 CALL $347E 3309 CD0500 CALL $0005 330C CD4634 CALL $3446 330F C9 RET ; -------------------------------------------- ; this zeroes out $17 bytes starting at DE+$0C ; so register DE is parameter to this routine 3310 E5 PUSH HL ; -------------------------------------------- 3311 D5 PUSH DE ; 3312 210C00 LD HL,$000C ; 3315 19 ADD HL,DE ; 3316 111700 LD DE,$0017 ; 3319 72 LD (HL),D ; 331A 23 INC HL ; 331B 1D DEC E ; 331C C21933 JP NZ,$3319 ; 331F D1 POP DE ; 3320 E1 POP HL ; 3321 C9 RET ; -------------------------------------------- 3322 3AEF14 LD A,($14EF) 3325 FE35 CP $35 3327 CA5119 JP Z,$1951 332A CD6838 CALL $3868 332D 03 INC BC 332E 62 LD H,D 332F 61 LD H,C 3330 64 LD H,H 3331 2073 JR NZ,$33A6 3333 65 LD H,L 3334 63 LD H,E 3335 74 LD (HL),H 3336 6F LD L,A 3337 72 LD (HL),D 3338 206F JR NZ,$33A9 333A 6E LD L,(HL) 333B A0 AND B 333C 3AA616 LD A,($16A6) 333F B7 OR A 3340 CA4E31 JP Z,$314E 3343 FEFE CP $FE 3345 C2CB33 JP NZ,$33CB 3348 3A1A01 LD A,($011A) 334B B7 OR A 334C CA4E31 JP Z,$314E 334F F5 PUSH AF 3350 3AEF14 LD A,($14EF) 3353 FE02 CP $02 3355 CA5D33 JP Z,$335D 3358 FE1E CP $1E 335A C24E31 JP NZ,$314E 335D 3A7525 LD A,($2575) 3360 32E004 LD ($04E0),A 3363 CD6838 CALL $3868 3366 72 LD (HL),D 3367 65 LD H,L 3368 61 LD H,C 3369 E4F1FA CALL PO,$FAF1 336C 7E LD A,(HL) 336D 33 INC SP 336E CD6838 CALL $3868 3371 2C INC L 3372 2061 JR NZ,$33D5 3374 62 LD H,D 3375 6F LD L,A 3376 72 LD (HL),D 3377 F4CD1B CALL P,$1BCD 337A 1C INC E 337B CAD304 JP Z,$04D3 337E 2A771E LD HL,($1E77) 3381 EB EX DE,HL 3382 3AEF14 LD A,($14EF) 3385 FE02 CP $02 3387 CA8D33 JP Z,$338D 338A 110000 LD DE,$0000 338D 2A3C1E LD HL,($1E3C) 3390 19 ADD HL,DE 3391 0E80 LD C,$80 3393 3A1B01 LD A,($011B) 3396 77 LD (HL),A 3397 23 INC HL 3398 0D DEC C 3399 C29633 JP NZ,$3396 339C 3AEF14 LD A,($14EF) 339F FE35 CP $35 33A1 C8 RET Z 33A2 CD6338 CALL $3863 33A5 21263B LD HL,$3B26 33A8 34 INC (HL) 33A9 217C00 LD HL,$007C 33AC 34 INC (HL) 33AD 3E00 LD A,$00 33AF C9 RET 33B0 E5 PUSH HL 33B1 CDB733 CALL $33B7 33B4 C3C233 JP $33C2 33B7 C327CA JP $CA27 ; *** call address directly modified at beginning of this program to hold addr of BIOS READ 33BA E5 PUSH HL 33BB C5 PUSH BC 33BC 0E02 LD C,$02 33BE CDC833 CALL $33C8 33C1 C1 POP BC 33C2 B7 OR A 33C3 E1 POP HL 33C4 C22233 JP NZ,$3322 33C7 C9 RET 33C8 C32ACA JP $CA2A ; *** call address directly modified at beginning of this program to hold addr of BIOS WRITE 33CB 2A043B LD HL,($3B04) 33CE EB EX DE,HL 33CF 2A0027 LD HL,($2700) 33D2 CD2C2B CALL $2B2C 33D5 D2DD33 JP NC,$33DD 33D8 3E02 LD A,$02 33DA 32A616 LD ($16A6),A 33DD 3A0C01 LD A,($010C) 33E0 3D DEC A 33E1 CC6338 CALL Z,$3863 33E4 CDF628 CALL $28F6 33E7 3AA616 LD A,($16A6) 33EA B7 OR A 33EB FA0334 JP M,$3403 33EE FE7F CP $7F 33F0 CA0935 JP Z,$3509 33F3 FE02 CP $02 33F5 CA1435 JP Z,$3514 33F8 2AB316 LD HL,($16B3) 33FB AF XOR A 33FC 77 LD (HL),A 33FD 23 INC HL 33FE 77 LD (HL),A 33FF 3D DEC A 3400 32A616 LD ($16A6),A 3403 CD6338 CALL $3863 3406 CD2F35 CALL $352F 3409 019C00 LD BC,$009C 340C 2A3C1E LD HL,($1E3C) 340F 23 INC HL 3410 223C1E LD ($1E3C),HL 3413 2AB316 LD HL,($16B3) 3416 2B DEC HL 3417 CD5213 CALL $1352 341A CA3834 JP Z,$3438 341D 23 INC HL 341E 7E LD A,(HL) 341F 23 INC HL 3420 B9 CP C 3421 C22734 JP NZ,$3427 3424 7E LD A,(HL) 3425 B8 CP B 3426 C8 RET Z 3427 7E LD A,(HL) 3428 2B DEC HL 3429 B6 OR (HL) 342A 23 INC HL 342B C21D34 JP NZ,$341D 342E 70 LD (HL),B 342F 23 INC HL 3430 77 LD (HL),A 3431 23 INC HL 3432 77 LD (HL),A 3433 2B DEC HL 3434 2B DEC HL 3435 2B DEC HL 3436 71 LD (HL),C 3437 C9 RET 3438 23 INC HL 3439 7E LD A,(HL) 343A B9 CP C 343B C8 RET Z 343C B7 OR A 343D C23834 JP NZ,$3438 3440 71 LD (HL),C 3441 23 INC HL 3442 77 LD (HL),A 3443 23 INC HL 3444 77 LD (HL),A 3445 C9 RET 3446 F5 PUSH AF 3447 3EFF LD A,$FF ; something is stored in this opcode instead of $FF 3449 3C INC A 344A CA4F34 JP Z,$344F 344D F1 POP AF 344E C9 RET 344F F1 POP AF 3450 22CD34 LD ($34CD),HL 3453 E3 EX (SP),HL 3454 225B34 LD ($345B),HL 3457 31843B LD SP,$3B84 345A 210F33 LD HL,$330F 345D E3 EX (SP),HL 345E D5 PUSH DE 345F F5 PUSH AF 3460 11C37D LD DE,$7DC3 3463 2A0600 LD HL,($0006) ; BDOS BAD SECTOR ERROR HANDLER VECTOR stored in opcode 3466 23 INC HL 3467 23 INC HL 3468 23 INC HL 3469 73 LD (HL),E 346A 23 INC HL 346B 72 LD (HL),D 346C 23 INC HL 346D 11E4C3 LD DE,$C3E4 ; BDOS DISK READ ONLY ERROR HANDLER VECTOR stored in opcode 3470 73 LD (HL),E 3471 23 INC HL 3472 72 LD (HL),D 3473 23 INC HL 3474 11C9E6 LD DE,$E6C9 ; BDOS FILE READ ONLY ERROR HANDLER VECTOR stored in opcode 3477 73 LD (HL),E 3478 23 INC HL 3479 72 LD (HL),D 347A F1 POP AF 347B C3CB34 JP $34CB 347E F5 PUSH AF 347F 3A4834 LD A,($3448) 3482 3C INC A 3483 CA8834 JP Z,$3488 3486 F1 POP AF 3487 C9 RET 3488 F1 POP AF 3489 22CD34 LD ($34CD),HL 348C 210000 LD HL,$0000 348F 39 ADD HL,SP 3490 225834 LD ($3458),HL 3493 D5 PUSH DE 3494 F5 PUSH AF 3495 1A LD A,(DE) 3496 32E534 LD ($34E5),A 3499 F1 POP AF 349A 2A0600 LD HL,($0006) ; addr of BDOS start = $D106 349D 23 INC HL ; skip over the JP $D111 instruction... 349E 23 INC HL ; ...at beginning of BDOS and now HL... 349F 23 INC HL ; ...points to low byte of BAD SECTOR ERROR HANDLER VECTOR in BDOS = $D199 34A0 5E LD E,(HL) 34A1 23 INC HL ; points to high byte of BAD SECTOR ERROR HANDLER VECTOR in BDOS = $D199 34A2 56 LD D,(HL) ; DE=$D199 34A3 EB EX DE,HL ; HL=$D199 34A4 226134 LD ($3461),HL ; ($3461)=BDOS BAD SECTOR ERROR HANDLER VECTOR 34A7 EB EX DE,HL 34A8 23 INC HL ; points to low byte of DISK SELECT ERROR HANDLER VECTOR in BDOS = $D1A5 34A9 5E LD E,(HL) 34AA 23 INC HL ; points to high byte of DISK SELECT ERROR HANDLER VECTOR in BDOS = $D1A5 34AB 56 LD D,(HL) ; DE=$D1A5 34AC EB EX DE,HL ; HL=$D1A5 34AD 226E34 LD ($346E),HL ; ($346E)=BDOS DISK SELECT ERROR HANDLER VECTOR 34B0 EB EX DE,HL 34B1 23 INC HL ; points to low byte of DISK READ ONLY ERROR HANDLER VECTOR in BDOS = $D1AB 34B2 5E LD E,(HL) 34B3 23 INC HL ; points to high byte of DISK READ ONLY ERROR HANDLER VECTOR in BDOS = $D1AB 34B4 56 LD D,(HL) ; DE=$D1AB 34B5 EB EX DE,HL ; HL=$D1AB 34B6 227534 LD ($3475),HL ; ($3475)=BDOS DISK READ ONLY ERROR HANDLER VECTOR 34B9 EB EX DE,HL ; HL points to high byte of DISK READ ONLY ERROR HANDLER VECTOR in BDOS = $D1AB 34BA 11EC34 LD DE,$34EC 34BD 72 LD (HL),D 34BE 2B DEC HL ; HL points to low byte of DISK READ ONLY ERROR HANDLER VECTOR in BDOS = $D1AB 34BF 73 LD (HL),E ; DISK READ ONLY ERROR HANDLER VECTOR in BDOS now changed from $D1AB to $34EC 34C0 2B DEC HL ; HL points to high byte of DISK SELECT ERROR HANDLER VECTOR in BDOS = $D1A5 34C1 11D034 LD DE,$34D0 34C4 72 LD (HL),D 34C5 2B DEC HL ; HL points to low byte of DISK SELECT ERROR HANDLER VECTOR in BDOS 34C6 73 LD (HL),E ; DISK SELECT ERROR HANDLER VECTOR in BDOS now changed from $D1A5 to $34D0 34C7 2B DEC HL ; HL points to high byte of BAD SECTOR ERROR HANDLER VECTOR in BDOS = $D199 34C8 72 LD (HL),D 34C9 2B DEC HL ; HL points to high byte of BAD SECTOR ERROR HANDLER VECTOR in BDOS 34CA 73 LD (HL),E ; BAD SECTOR ERROR HANDLER VECTOR in BDOS now changed from $D199 to $34D0 34CB D1 POP DE 34CC 210035 LD HL,$3500 34CF C9 RET ; ################## BAD SECTOR ERROR HANDLER ################### 34D0 CD4634 CALL $3446 34D3 3AA616 LD A,($16A6) 34D6 FEFE CP $FE 34D8 CA2233 JP Z,$3322 34DB B7 OR A 34DC C0 RET NZ 34DD 3A5C00 LD A,($005C) 34E0 B7 OR A 34E1 C23231 JP NZ,$3132 34E4 3E01 LD A,$01 34E6 325C00 LD ($005C),A 34E9 C33231 JP $3132 34EC CD4634 CALL $3446 34EF CD6838 CALL $3868 34F2 0D DEC C 34F3 0D DEC C 34F4 50 LD D,B 34F5 72 LD (HL),D 34F6 65 LD H,L 34F7 73 LD (HL),E 34F8 73 LD (HL),E 34F9 205E JR NZ,$3559 34FB 43 LD B,E 34FC 2C INC L 34FD 2005 JR NZ,$3504 34FF 69 LD L,C 3500 73 LD (HL),E 3501 2024 JR NZ,$3527 3503 52 LD D,D 3504 2F CPL 3505 CF RST $08 3506 C34731 JP $3147 3509 CD6838 CALL $3868 350C 2069 JR NZ,$3577 350E 6E LD L,(HL) 350F 2064 JR NZ,$3575 3511 69 LD L,C 3512 72 LD (HL),D 3513 00 NOP 3514 3E01 LD A,$01 3516 32A616 LD ($16A6),A 3519 CD6838 CALL $3868 351C 206F JR NZ,$358D 351E 6E LD L,(HL) 351F 2073 JR NZ,$3594 3521 79 LD A,C 3522 73 LD (HL),E 3523 74 LD (HL),H 3524 65 LD H,L 3525 6D LD L,L 3526 2074 JR NZ,$359C 3528 72 LD (HL),D 3529 61 LD H,C 352A 63 LD H,E 352B 6B LD L,E 352C 73 LD (HL),E 352D 8D ADC A,L 352E C9 RET 352F 2A043B LD HL,($3B04) 3532 EB EX DE,HL 3533 2A0027 LD HL,($2700) 3536 CD2C2B CALL $2B2C 3539 EB EX DE,HL 353A 2AF73A LD HL,($3AF7) 353D CD5E35 CALL $355E 3540 EB EX DE,HL 3541 2A0627 LD HL,($2706) 3544 2B DEC HL 3545 19 ADD HL,DE 3546 3AFA3A LD A,($3AFA) 3549 47 LD B,A 354A 7D LD A,L 354B A0 AND B 354C 32D132 LD ($32D1),A 354F 3AF93A LD A,($3AF9) 3552 47 LD B,A 3553 CD702F CALL $2F70 3556 05 DEC B 3557 C25335 JP NZ,$3553 355A 220A34 LD ($340A),HL 355D C9 RET 355E C5 PUSH BC 355F D5 PUSH DE 3560 EB EX DE,HL 3561 42 LD B,D 3562 4B LD C,E 3563 78 LD A,B 3564 B1 OR C 3565 C26E35 JP NZ,$356E 3568 210000 LD HL,$0000 356B D1 POP DE 356C C1 POP BC 356D C9 RET 356E 0B DEC BC 356F 54 LD D,H 3570 5D LD E,L 3571 78 LD A,B 3572 B1 OR C 3573 CA6B35 JP Z,$356B 3576 19 ADD HL,DE 3577 0B DEC BC 3578 C37135 JP $3571 357B CD8035 CALL $3580 357E 3EFA LD A,$FA 3580 C640 ADD A,$40 3582 C3EF38 JP $38EF 3585 112A3B LD DE,$3B2A 3588 0E15 LD C,$15 358A CD0633 CALL $3306 358D B7 OR A 358E C8 RET Z 358F 3D DEC A 3590 CAC435 JP Z,$35C4 3593 3D DEC A 3594 CAD435 JP Z,$35D4 3597 CD6838 CALL $3868 359A 07 RLCA 359B 03 INC BC 359C 64 LD H,H 359D 69 LD L,C 359E 72 LD (HL),D 359F 2066 JR NZ,$3607 35A1 75 LD (HL),L 35A2 6C LD L,H 35A3 ECCDAA CALL PE,$AACD 35A6 35 DEC (HL) 35A7 C3D304 JP $04D3 35AA CD6838 CALL $3868 35AD 206F JR NZ,$361E 35AF 6E LD L,(HL) 35B0 2064 JR NZ,$3616 35B2 72 LD (HL),D 35B3 69 LD L,C 35B4 76 HALT 35B5 65 LD H,L 35B6 A0 AND B 35B7 CDBD35 CALL $35BD 35BA C37B35 JP $357B 35BD 0E19 LD C,$19 35BF CD0500 CALL $0005 ; call BDOS function $19 (Return Current Disk) which returns with A=($D442) 35C2 3C INC A ; A=($D442)+1 35C3 C9 RET 35C4 CD6838 CALL $3868 35C7 03 INC BC 35C8 02 LD (BC),A 35C9 65 LD H,L 35CA 78 LD A,B 35CB 74 LD (HL),H 35CC 65 LD H,L 35CD 6E LD L,(HL) 35CE 64 LD H,H 35CF 2084 JR NZ,$3555 35D1 C3A435 JP $35A4 35D4 CD6838 CALL $3868 35D7 07 RLCA 35D8 03 INC BC 35D9 05 DEC B 35DA 66 LD H,(HL) 35DB 75 LD (HL),L 35DC 6C LD L,H 35DD 6C LD L,H 35DE 206F JR NZ,$364F 35E0 6E LD L,(HL) 35E1 A0 AND B 35E2 3A2A3B LD A,($3B2A) 35E5 CD7B35 CALL $357B 35E8 CDF131 CALL $31F1 35EB CDBE31 CALL $31BE 35EE 3A6601 LD A,($0166) 35F1 B7 OR A 35F2 FAD304 JP M,$04D3 35F5 3AEF14 LD A,($14EF) 35F8 FE1D CP $1D 35FA CAD304 JP Z,$04D3 35FD 318A3B LD SP,$3B8A 3600 C39610 JP $1096 3603 3A1D01 LD A,($011D) 3606 325739 LD ($3957),A 3609 E5 PUSH HL 360A 2A771E LD HL,($1E77) 360D EB EX DE,HL 360E E1 POP HL 360F 12 LD (DE),A 3610 F5 PUSH AF 3611 E5 PUSH HL 3612 C5 PUSH BC 3613 D5 PUSH DE 3614 D1 POP DE 3615 D5 PUSH DE 3616 AF XOR A 3617 325737 LD ($3757),A 361A 13 INC DE 361B 12 LD (DE),A 361C 3EFF LD A,$FF 361E B7 OR A 361F FA8536 JP M,$3685 3622 D5 PUSH DE 3623 CDC631 CALL $31C6 3626 11D03A LD DE,$3AD0 3629 D5 PUSH DE 362A CDD631 CALL $31D6 362D D1 POP DE 362E 3ADF3A LD A,($3ADF) 3631 3D DEC A 3632 32F03A LD ($3AF0),A 3635 FA8136 JP M,$3681 3638 CD1132 CALL $3211 363B C28136 JP NZ,$3681 363E D1 POP DE 363F D5 PUSH DE 3640 218000 LD HL,$0080 3643 46 LD B,(HL) 3644 04 INC B 3645 CDBC37 CALL $37BC 3648 E1 POP HL 3649 E5 PUSH HL 364A 46 LD B,(HL) 364B 23 INC HL 364C 7E LD A,(HL) 364D CDEF38 CALL $38EF 3650 05 DEC B 3651 C24B36 JP NZ,$364B 3654 23 INC HL 3655 3620 LD (HL),$20 3657 23 INC HL 3658 AF XOR A 3659 77 LD (HL),A 365A 325739 LD ($3957),A 365D 21DE3A LD HL,$3ADE 3660 77 LD (HL),A 3661 23 INC HL 3662 35 DEC (HL) 3663 11D03A LD DE,$3AD0 3666 CDF431 CALL $31F4 3669 CA8136 JP Z,$3681 366C D1 POP DE 366D C3B832 JP $32B8 3670 211D36 LD HL,$361D 3673 7E LD A,(HL) 3674 B7 OR A 3675 F8 RET M 3676 2F CPL 3677 77 LD (HL),A 3678 CDC631 CALL $31C6 367B 11D03A LD DE,$3AD0 367E C3C131 JP $31C1 3681 CD7036 CALL $3670 3684 D1 POP DE 3685 13 INC DE 3686 EB EX DE,HL 3687 CD2038 CALL $3820 368A FE0D CP $0D 368C CAE036 JP Z,$36E0 368F FE5F CP $5F 3691 CA0137 JP Z,$3701 3694 FE7F CP $7F 3696 CA0137 JP Z,$3701 3699 FE08 CP $08 369B CA0137 JP Z,$3701 369E FE15 CP $15 36A0 CA8237 JP Z,$3782 36A3 FE12 CP $12 36A5 CA8C37 JP Z,$378C 36A8 FE05 CP $05 36AA CAB437 JP Z,$37B4 36AD FE18 CP $18 36AF CA7A37 JP Z,$377A 36B2 FE5E CP $5E 36B4 C2C936 JP NZ,$36C9 36B7 CD2038 CALL $3820 36BA CD1638 CALL $3816 36BD FE21 CP $21 36BF DA8A36 JP C,$368A 36C2 FE5E CP $5E 36C4 CAC936 JP Z,$36C9 36C7 D640 SUB $40 36C9 47 LD B,A 36CA 3A0901 LD A,($0109) 36CD B8 CP B 36CE C2ED36 JP NZ,$36ED 36D1 3AEF14 LD A,($14EF) 36D4 FE1B CP $1B 36D6 C2ED36 JP NZ,$36ED 36D9 3A9220 LD A,($2092) 36DC 2F CPL 36DD 329220 LD ($2092),A 36E0 3620 LD (HL),$20 36E2 23 INC HL 36E3 F5 PUSH AF 36E4 AF XOR A 36E5 77 LD (HL),A 36E6 325739 LD ($3957),A 36E9 F1 POP AF 36EA C3B832 JP $32B8 36ED EB EX DE,HL 36EE E1 POP HL 36EF E5 PUSH HL 36F0 7E LD A,(HL) 36F1 23 INC HL 36F2 34 INC (HL) 36F3 BE CP (HL) 36F4 CAAB37 JP Z,$37AB 36F7 EB EX DE,HL 36F8 70 LD (HL),B 36F9 78 LD A,B 36FA CD4137 CALL $3741 36FD 23 INC HL 36FE C38736 JP $3687 3701 CD0737 CALL $3707 3704 C38736 JP $3687 3707 EB EX DE,HL 3708 C1 POP BC 3709 E1 POP HL 370A E5 PUSH HL 370B C5 PUSH BC 370C 23 INC HL 370D 47 LD B,A 370E 7E LD A,(HL) 370F D601 SUB $01 3711 77 LD (HL),A 3712 DA4C37 JP C,$374C 3715 EB EX DE,HL 3716 2B DEC HL 3717 78 LD A,B 3718 46 LD B,(HL) 3719 3620 LD (HL),$20 371B FE08 CP $08 371D CA5337 JP Z,$3753 3720 3A5737 LD A,($3757) 3723 3C INC A 3724 3C INC A 3725 325737 LD ($3757),A 3728 78 LD A,B 3729 FE20 CP $20 372B D2EF38 JP NC,$38EF 372E CD8035 CALL $3580 3731 3A5737 LD A,($3757) 3734 3C INC A 3735 3C INC A 3736 325737 LD ($3757),A 3739 F5 PUSH AF 373A 3E5E LD A,$5E 373C CDEF38 CALL $38EF 373F F1 POP AF 3740 C9 RET 3741 FE20 CP $20 3743 DC3937 CALL C,$3739 3746 DA8035 JP C,$3580 3749 C3EF38 JP $38EF 374C 33 INC SP 374D 33 INC SP 374E 34 INC (HL) 374F EB EX DE,HL 3750 C38736 JP $3687 3753 CD6337 CALL $3763 3756 3E00 LD A,$00 3758 B7 OR A 3759 C8 RET Z 375A 0620 LD B,$20 375C 3D DEC A 375D 325737 LD ($3757),A 3760 C35337 JP $3753 3763 78 LD A,B 3764 FE20 CP $20 3766 3E08 LD A,$08 3768 DC6D37 CALL C,$376D 376B 3E08 LD A,$08 376D CDEF38 CALL $38EF 3770 3E20 LD A,$20 3772 CDEF38 CALL $38EF 3775 3E08 LD A,$08 3777 C3EF38 JP $38EF 377A 3E08 LD A,$08 377C CD0737 CALL $3707 377F C37A37 JP $377A 3782 CD6338 CALL $3863 3785 AF XOR A 3786 325737 LD ($3757),A 3789 C31436 JP $3614 378C D1 POP DE 378D D5 PUSH DE 378E 13 INC DE 378F 1A LD A,(DE) 3790 47 LD B,A 3791 CD6838 CALL $3868 3794 23 INC HL 3795 8D ADC A,L 3796 AF XOR A 3797 325737 LD ($3757),A 379A 78 LD A,B 379B B7 OR A 379C CA8736 JP Z,$3687 379F 13 INC DE 37A0 1A LD A,(DE) 37A1 CD4137 CALL $3741 37A4 05 DEC B 37A5 C29F37 JP NZ,$379F 37A8 C38736 JP $3687 37AB CD6838 CALL $3868 37AE 87 ADD A,A 37AF 35 DEC (HL) 37B0 EB EX DE,HL 37B1 C38736 JP $3687 37B4 CD6338 CALL $3863 37B7 C38736 JP $3687 37BA 0624 LD B,$24 37BC 7E LD A,(HL) ; <--- <--- <---| * This is equivalent 37BD 12 LD (DE),A ; (DE)=(HL) | * to a LDIR using B 37BE 23 INC HL ; | * as a counter: 37BF 13 INC DE ; | * 37C0 05 DEC B ; | * (DE)<-(HL) B times 37C1 C2BC37 JP NZ,$37BC ; ---> ---> --->| * 37C4 C9 RET 37C5 E5 PUSH HL 37C6 CDCB37 CALL $37CB 37C9 E1 POP HL 37CA C9 RET 37CB CD06CA CALL $CA06 ; *** call address directly modified at beginning of this program to hold addr of BIOS CONST 37CE B7 OR A 37CF CA0138 JP Z,$3801 37D2 CD2038 CALL $3820 37D5 320A39 LD ($390A),A 37D8 FE13 CP $13 37DA CA2038 JP Z,$3820 37DD FE20 CP $20 37DF C2E937 JP NZ,$37E9 37E2 F680 OR $80 37E4 320A39 LD ($390A),A 37E7 E67F AND $7F 37E9 C5 PUSH BC 37EA 47 LD B,A 37EB 3A0F01 LD A,($010F) 37EE B8 CP B 37EF 78 LD A,B 37F0 C1 POP BC 37F1 CA2038 JP Z,$3820 37F4 FE30 CP $30 37F6 D8 RET C 37F7 FE3A CP $3A 37F9 3F CCF 37FA D8 RET C 37FB E60F AND $0F 37FD 326901 LD ($0169),A 3800 C9 RET 3801 F601 OR $01 3803 C9 RET 3804 CDAE3A CALL $3AAE 3807 CDF437 CALL $37F4 380A DABA3A JP C,$3ABA 380D C3D304 JP $04D3 3810 CD2038 CALL $3820 3813 CDEF38 CALL $38EF 3816 FE61 CP $61 3818 D8 RET C 3819 FE7B CP $7B 381B 3F CCF 381C D8 RET C 381D E65F AND $5F 381F C9 RET 3820 E5 PUSH HL 3821 D5 PUSH DE 3822 C5 PUSH BC 3823 CD09CA CALL $CA09 ; *** call address directly modified at beginning of this program to hold addr of BIOS CONIN 3826 327915 LD ($1579),A 3829 FE03 CP $03 382B CA5738 JP Z,$3857 382E FE10 CP $10 3830 CA4D38 JP Z,$384D 3833 47 LD B,A 3834 3A0B01 LD A,($010B) 3837 B8 CP B 3838 CA4738 JP Z,$3847 383B 78 LD A,B 383C FE0A CP $0A 383E C24338 JP NZ,$3843 3841 3E0D LD A,$0D 3843 C1 POP BC 3844 D1 POP DE 3845 E1 POP HL 3846 C9 RET 3847 CDA80D CALL $0DA8 384A C3D304 JP $04D3 384D 3A5139 LD A,($3951) 3850 2F CPL 3851 325139 LD ($3951),A 3854 C32338 JP $3823 3857 CD4137 CALL $3741 385A CDA80D CALL $0DA8 385D CD7036 CALL $3670 3860 C32404 JP $0424 3863 CD6838 CALL $3868 3866 8D ADC A,L 3867 C9 RET 3868 22BF38 LD ($38BF),HL ; save HL in the very opcode of a LD HL,nn instruction at the end of this routine 386B E3 EX (SP),HL ; exchange last address saved on stack (let's call it XAAA) with HL 386C D5 PUSH DE ; save DE on stack 386D CD680C CALL $0C68 ; print out string at $0171 (to console) 3870 7E LD A,(HL) ; A=(XAAA) 3871 E67F AND $7F ; zero out bit 7 of A 3873 CAD304 JP Z,$04D3 3876 11CC38 LD DE,$38CC 3879 FE01 CP $01 387B CCC238 CALL Z,$38C2 387E 11D438 LD DE,$38D4 3881 FE02 CP $02 3883 CCC238 CALL Z,$38C2 3886 11DE38 LD DE,$38DE 3889 FE03 CP $03 388B CCC238 CALL Z,$38C2 388E 11E238 LD DE,$38E2 3891 FE04 CP $04 3893 CCC238 CALL Z,$38C2 3896 11E738 LD DE,$38E7 3899 FE05 CP $05 389B CCC238 CALL Z,$38C2 389E FE17 CP $17 38A0 CC680C CALL Z,$0C68 38A3 FE18 CP $18 38A5 CC610C CALL Z,$0C61 38A8 B7 OR A 38A9 C4EF38 CALL NZ,$38EF 38AC FE0D CP $0D 38AE 3E0A LD A,$0A 38B0 CCEF38 CALL Z,$38EF 38B3 7E LD A,(HL) 38B4 B7 OR A 38B5 23 INC HL 38B6 F27038 JP P,$3870 38B9 CD610C CALL $0C61 38BC D1 POP DE 38BD E3 EX (SP),HL 38BE 218A3B LD HL,$3B8A 38C1 C9 RET 38C2 1A LD A,(DE) 38C3 B7 OR A 38C4 C8 RET Z 38C5 CDEF38 CALL $38EF 38C8 13 INC DE 38C9 C3C238 JP $38C2 38CC 73 LD (HL),E 38CD 65 LD H,L 38CE 63 LD H,E 38CF 74 LD (HL),H 38D0 6F LD L,A 38D1 72 LD (HL),D 38D2 73 LD (HL),E 38D3 00 NOP 38D4 07 RLCA 38D5 63 LD H,E 38D6 61 LD H,C 38D7 6E LD L,(HL) 38D8 206E JR NZ,$3948 38DA 6F LD L,A 38DB 74 LD (HL),H 38DC 2000 JR NZ,$38DE 38DE 202D JR NZ,$390D 38E0 2000 JR NZ,$38E2 38E2 66 LD H,(HL) 38E3 69 LD L,C 38E4 6C LD L,H 38E5 65 LD H,L 38E6 00 NOP 38E7 64 LD H,H 38E8 69 LD L,C 38E9 73 LD (HL),E 38EA 6B LD L,E 38EB 2000 JR NZ,$38ED 38ED 3E20 LD A,$20 38EF E5 PUSH HL 38F0 D5 PUSH DE 38F1 C5 PUSH BC 38F2 F5 PUSH AF 38F3 E67F AND $7F 38F5 5F LD E,A 38F6 FE07 CP $07 38F8 C20239 JP NZ,$3902 38FB 3A1201 LD A,($0112) 38FE B7 OR A 38FF C27339 JP NZ,$3973 3902 3A1F01 LD A,($011F) 3905 BB CP E 3906 C24839 JP NZ,$3948 3909 3E20 LD A,$20 390B 57 LD D,A 390C E67F AND $7F 390E FE20 CP $20 3910 C24839 JP NZ,$3948 3913 7A LD A,D 3914 B7 OR A 3915 FA3239 JP M,$3932 3918 3A5139 LD A,($3951) 391B B7 OR A 391C FA4839 JP M,$3948 391F 3E19 LD A,$19 3921 3D DEC A 3922 FA4839 JP M,$3948 3925 322039 LD ($3920),A 3928 B7 OR A 3929 C24839 JP NZ,$3948 392C 3A0501 LD A,($0105) 392F 322039 LD ($3920),A 3932 CD2038 CALL $3820 3935 57 LD D,A 3936 FE0D CP $0D 3938 3E20 LD A,$20 393A CA4539 JP Z,$3945 393D 7A LD A,D 393E FE20 CP $20 3940 C24539 JP NZ,$3945 3943 EE80 XOR $80 3945 320A39 LD ($390A),A 3948 0E02 LD C,$02 394A CD0500 CALL $0005 394D F1 POP AF 394E F5 PUSH AF 394F 5F LD E,A 3950 3E00 LD A,$00 3952 B7 OR A 3953 FC7739 CALL M,$3977 3956 3E00 LD A,$00 3958 B7 OR A 3959 CCC537 CALL Z,$37C5 395C 3A6901 LD A,($0169) 395F B7 OR A 3960 CA7339 JP Z,$3973 3963 57 LD D,A 3964 5F LD E,A 3965 62 LD H,D 3966 2E00 LD L,$00 3968 29 ADD HL,HL 3969 2B DEC HL 396A 7C LD A,H 396B B5 OR L 396C C26939 JP NZ,$3969 396F 1D DEC E 3970 C26539 JP NZ,$3965 3973 F1 POP AF 3974 C34338 JP $3843 3977 7B LD A,E 3978 F5 PUSH AF 3979 FE09 CP $09 397B CA8839 JP Z,$3988 397E FE0D CP $0D 3980 C29939 JP NZ,$3999 3983 3EFF LD A,$FF 3985 C3A339 JP $39A3 3988 1606 LD D,$06 398A 3E20 LD A,$20 398C CD9839 CALL $3998 398F 14 INC D 3990 7A LD A,D 3991 FE08 CP $08 3993 C28A39 JP NZ,$398A 3996 F1 POP AF 3997 C9 RET 3998 F5 PUSH AF 3999 3A8939 LD A,($3989) 399C 3C INC A 399D FE08 CP $08 399F C2A339 JP NZ,$39A3 39A2 AF XOR A 39A3 328939 LD ($3989),A 39A6 F1 POP AF 39A7 F5 PUSH AF 39A8 D5 PUSH DE 39A9 5F LD E,A 39AA 0E05 LD C,$05 39AC CD0500 CALL $0005 39AF D1 POP DE 39B0 F1 POP AF 39B1 C9 RET 39B2 CD4E30 CALL $304E 39B5 CD6838 CALL $3868 39B8 0D DEC C 39B9 05 DEC B 39BA 63 LD H,E 39BB 61 LD H,C 39BC 70 LD (HL),B 39BD 61 LD H,C 39BE 63 LD H,E 39BF 69 LD L,C 39C0 74 LD (HL),H 39C1 79 LD A,C 39C2 3A89CD LD A,($CD89) 39C5 FB EI 39C6 25 DEC H 39C7 CD9F26 CALL $269F 39CA CD6838 CALL $3868 39CD 0D DEC C 39CE 74 LD (HL),H 39CF 72 LD (HL),D 39D0 61 LD H,C 39D1 63 LD H,E 39D2 6B LD L,E 39D3 73 LD (HL),E 39D4 3A0989 LD A,($8909) 39D7 2A2532 LD HL,($3225) 39DA 23 INC HL 39DB CDDF2F CALL $2FDF 39DE 2A043B LD HL,($3B04) 39E1 E5 PUSH HL 39E2 CDDF2F CALL $2FDF 39E5 CD6838 CALL $3868 39E8 2073 JR NZ,$3A5D 39EA 79 LD A,C 39EB 73 LD (HL),E 39EC 74 LD (HL),H 39ED 65 LD H,L 39EE 6D LD L,L 39EF 0D DEC C 39F0 012F74 LD BC,$742F 39F3 72 LD (HL),D 39F4 61 LD H,C 39F5 63 LD H,E 39F6 6B LD L,E 39F7 3A892A LD A,($2A89) 39FA F7 RST $30 39FB 3AE5CD LD A,($CDE5) 39FE DF RST $18 39FF 2F CPL 3A00 2A2A2B LD HL,($2B2A) 3A03 CDDF2F CALL $2FDF 3A06 CD6838 CALL $3868 3A09 206C JR NZ,$3A77 3A0B 61 LD H,C 3A0C 73 LD (HL),E 3A0D 74 LD (HL),H 3A0E 0D DEC C 3A0F 012F73 LD BC,$732F 3A12 79 LD A,C 3A13 73 LD (HL),E 3A14 74 LD (HL),H 3A15 65 LD H,L 3A16 6D LD L,L 3A17 3A89D1 LD A,($D189) 3A1A E1 POP HL 3A1B CD5E35 CALL $355E 3A1E CDDF2F CALL $2FDF 3A21 2AFE3A LD HL,($3AFE) 3A24 23 INC HL 3A25 E5 PUSH HL 3A26 0E04 LD C,$04 3A28 CD401C CALL $1C40 3A2B CDDF2F CALL $2FDF 3A2E CD6838 CALL $3868 3A31 2064 JR NZ,$3A97 3A33 69 LD L,C 3A34 72 LD (HL),D 3A35 0D DEC C 3A36 64 LD H,H 3A37 69 LD L,C 3A38 72 LD (HL),D 3A39 2065 JR NZ,$3AA0 3A3B 6E LD L,(HL) 3A3C 74 LD (HL),H 3A3D 72 LD (HL),D 3A3E 69 LD L,C 3A3F 65 LD H,L 3A40 73 LD (HL),E 3A41 3A89E1 LD A,($E189) 3A44 E5 PUSH HL 3A45 CDDF2F CALL $2FDF 3A48 E1 POP HL 3A49 0E20 LD C,$20 3A4B CD401C CALL $1C40 3A4E CD9F26 CALL $269F 3A51 CD6838 CALL $3868 3A54 0D DEC C 3A55 012F67 LD BC,$672F 3A58 72 LD (HL),D 3A59 6F LD L,A 3A5A 75 LD (HL),L 3A5B 70 LD (HL),B 3A5C 3A893A LD A,($3A89) 3A5F FA3A3C JP M,$3C3A 3A62 6F LD L,A 3A63 2600 LD H,$00 3A65 CDDF2F CALL $2FDF 3A68 CD0E26 CALL $260E 3A6B 17 RLA 3A6C 6F LD L,A 3A6D 2600 LD H,$00 3A6F CD9F26 CALL $269F 3A72 2AFC3A LD HL,($3AFC) 3A75 3E30 LD A,$30 3A77 32C32F LD ($2FC3),A 3A7A CDBA2F CALL $2FBA 3A7D 3EFF LD A,$FF 3A7F 32C32F LD ($2FC3),A 3A82 CD6838 CALL $3868 3A85 48 LD C,B 3A86 2067 JR NZ,$3AEF 3A88 72 LD (HL),D 3A89 6F LD L,A 3A8A 75 LD (HL),L 3A8B 70 LD (HL),B 3A8C 73 LD (HL),E 3A8D 0D DEC C 3A8E 6B LD L,E 3A8F 62 LD H,D 3A90 79 LD A,C 3A91 74 LD (HL),H 3A92 65 LD H,L 3A93 73 LD (HL),E 3A94 2F CPL 3A95 65 LD H,L 3A96 78 LD A,B 3A97 74 LD (HL),H 3A98 65 LD H,L 3A99 6E LD L,(HL) 3A9A 74 LD (HL),H 3A9B 3A8921 LD A,($2189) 3A9E 08 EX AF,AF' 3A9F 00 NOP 3AA0 3AFB3A LD A,($3AFB) 3AA3 29 ADD HL,HL 3AA4 3D DEC A 3AA5 F2A33A JP P,$3AA3 3AA8 CD9F26 CALL $269F 3AAB C3D304 JP $04D3 3AAE 2B DEC HL 3AAF CD782F CALL $2F78 3AB2 C0 RET NZ 3AB3 C3BA3A JP $3ABA 3AB6 1A LD A,(DE) 3AB7 FE20 CP $20 3AB9 C8 RET Z 3ABA CD6838 CALL $3868 3ABD 07 RLCA 3ABE 03 INC BC 3ABF 69 LD L,C 3AC0 6E LD L,(HL) 3AC1 76 HALT 3AC2 61 LD H,C 3AC3 6C LD L,H 3AC4 69 LD L,C 3AC5 64 LD H,H 3AC6 2061 JR NZ,$3B29 3AC8 72 LD (HL),D 3AC9 67 LD H,A 3ACA 75 LD (HL),L 3ACB 6D LD L,L 3ACC 65 LD H,L 3ACD 6E LD L,(HL) 3ACE 74 LD (HL),H 3ACF 00 NOP 3AD0 012424 LD BC,$2424 3AD3 24 INC H 3AD4 2020 JR NZ,$3AF6 3AD6 2020 JR NZ,$3AF8 3AD8 2053 JR NZ,$3B2D 3ADA 55 LD D,L 3ADB 42 LD B,D 3ADC 00 NOP 3ADD 00 NOP 3ADE 00 NOP 3ADF 00 NOP 3AE0 00 NOP 3AE1 00 NOP 3AE2 00 NOP 3AE3 00 NOP 3AE4 00 NOP 3AE5 00 NOP 3AE6 00 NOP 3AE7 00 NOP 3AE8 00 NOP 3AE9 00 NOP 3AEA 00 NOP 3AEB 00 NOP 3AEC 00 NOP 3AED 00 NOP 3AEE 00 NOP 3AEF 00 NOP 3AF0 00 NOP 3AF1 00 NOP 3AF2 00 NOP 3AF3 00 NOP 3AF4 43 LD B,E 3AF5 4F LD C,A 3AF6 4D LD C,L 3AF7 1A LD A,(DE) 3AF8 00 NOP 3AF9 03 INC BC 3AFA 07 RLCA 3AFB 00 NOP 3AFC F2003F JP P,$3F00 3AFF 00 NOP 3B00 3D DEC A 3B01 75 LD (HL),L 3B02 70 LD (HL),B 3B03 206C JR NZ,$3B71 3B05 69 LD L,C 3B06 6E LD L,(HL) 3B07 65 LD H,L 3B08 09 ADD HL,BC 3B09 205E JR NZ,$3B69 3B0B 58 LD E,B 3B0C 3D DEC A 3B0D 64 LD H,H 3B0E 6F LD L,A 3B0F 77 LD (HL),A 3B10 6E LD L,(HL) 3B11 206C JR NZ,$3B7F 3B13 69 LD L,C 3B14 6E LD L,(HL) 3B15 65 LD H,L 3B16 09 ADD HL,BC 3B17 2020 JR NZ,$3B39 3B19 2020 JR NZ,$3B3B 3B1B 2020 JR NZ,$3B3D 3B1D 200E JR NZ,$3B2D 3B1F 2053 JR NZ,$3B74 3B21 43 LD B,E 3B22 52 LD D,D 3B23 4F LD C,A 3B24 4C LD C,H 3B25 4C LD C,H 3B26 3A205E LD A,($5E20) 3B29 5A LD E,D 3B2A 3D DEC A 3B2B 75 LD (HL),L 3B2C 70 LD (HL),B 3B2D 206C JR NZ,$3B9B 3B2F 69 LD L,C 3B30 6E LD L,(HL) 3B31 65 LD H,L 3B32 09 ADD HL,BC 3B33 2020 JR NZ,$3B55 3B35 2020 JR NZ,$3B57 3B37 5E LD E,(HL) 3B38 57 LD D,A 3B39 3D DEC A 3B3A 64 LD H,H 3B3B 6F LD L,A 3B3C 77 LD (HL),A 3B3D 6E LD L,(HL) 3B3E 09 ADD HL,BC 3B3F 205E JR NZ,$3B9F 3B41 43 LD B,E 3B42 3D DEC A 3B43 75 LD (HL),L 3B44 70 LD (HL),B 3B45 2073 JR NZ,$3BBA 3B47 63 LD H,E 3B48 72 LD (HL),D 3B49 65 LD H,L 3B4A 65 LD H,L 3B4B 6E LD L,(HL) 3B4C 2020 JR NZ,$3B6E 3B4E 5E LD E,(HL) 3B4F 52 LD D,D 3B50 3D DEC A 3B51 64 LD H,H 3B52 6F LD L,A 3B53 77 LD (HL),A 3B54 6E LD L,(HL) 3B55 200E JR NZ,$3B65 3B57 2044 JR NZ,$3B9D 3B59 45 LD B,L 3B5A 4C LD C,H 3B5B 45 LD B,L 3B5C 54 LD D,H 3B5D 45 LD B,L 3B5E 3A2044 LD A,($4420) 3B61 45 LD B,L 3B62 4C LD C,H 3B63 3D DEC A 3B64 63 LD H,E 3B65 68 LD L,B 3B66 61 LD H,C 3B67 72 LD (HL),D 3B68 206C JR NZ,$3BD6 3B6A 65 LD H,L 3B6B 66 LD H,(HL) 3B6C 74 LD (HL),H 3B6D 2020 JR NZ,$3B8F 3B6F 2020 JR NZ,$3B91 3B71 205E JR NZ,$3BD1 3B73 47 LD B,A 3B74 3D DEC A 3B75 72 LD (HL),D 3B76 69 LD L,C 3B77 67 LD H,A 3B78 68 LD L,B 3B79 74 LD (HL),H 3B7A 09 ADD HL,BC 3B7B 205E JR NZ,$3BDB 3B7D 54 LD D,H 3B7E 3D DEC A 3B7F 77 LD (HL),A 3B80 6F LD L,A 3B81 72 LD (HL),D 3B82 64 LD H,H 3B83 2020 JR NZ,$3BA5 3B85 2020 JR NZ,$3BA7 3B87 2020 JR NZ,$3BA9 3B89 205E JR NZ,$3BE9 3B8B 59 LD E,C 3B8C 3D DEC A 3B8D 6C LD L,H 3B8E 69 LD L,C 3B8F 6E LD L,(HL) 3B90 65 LD H,L 3B91 200E JR NZ,$3BA1 3B93 204F JR NZ,$3BE4 3B95 54 LD D,H 3B96 48 LD C,B 3B97 45 LD B,L 3B98 52 LD D,D 3B99 3A0920 LD A,($2009) 3B9C 5E LD E,(HL) 3B9D 56 LD D,(HL) 3B9E 3D DEC A 3B9F 69 LD L,C 3BA0 6E LD L,(HL) 3BA1 73 LD (HL),E 3BA2 65 LD H,L 3BA3 72 LD (HL),D 3BA4 74 LD (HL),H 3BA5 206F JR NZ,$3C16 3BA7 66 LD H,(HL) 3BA8 66 LD H,(HL) 3BA9 2F CPL 3BAA 6F LD L,A 3BAB 6E LD L,(HL) 3BAC 2020 JR NZ,$3BCE 3BAE 2020 JR NZ,$3BD0 3BB0 5E LD E,(HL) 3BB1 49 LD C,C 3BB2 3D DEC A 3BB3 74 LD (HL),H 3BB4 61 LD H,C 3BB5 62 LD H,D 3BB6 2020 JR NZ,$3BD8 3BB8 2052 JR NZ,$3C0C 3BBA 45 LD B,L 3BBB 54 LD D,H 3BBC 55 LD D,L 3BBD 52 LD D,D 3BBE 4E LD C,(HL) 3BBF 3D DEC A 3BC0 65 LD H,L 3BC1 6E LD L,(HL) 3BC2 64 LD H,H 3BC3 2070 JR NZ,$3C35 3BC5 61 LD H,C 3BC6 72 LD (HL),D 3BC7 61 LD H,C 3BC8 2020 JR NZ,$3BEA 3BCA 5E LD E,(HL) 3BCB 55 LD D,L 3BCC 3D DEC A 3BCD 73 LD (HL),E 3BCE 74 LD (HL),H 3BCF 6F LD L,A 3BD0 70 LD (HL),B 3BD1 200E JR NZ,$3BE1 3BD3 2009 JR NZ,$3BDE 3BD5 205E JR NZ,$3C35 3BD7 4E LD C,(HL) 3BD8 3D DEC A 3BD9 69 LD L,C 3BDA 6E LD L,(HL) 3BDB 73 LD (HL),E 3BDC 65 LD H,L 3BDD 72 LD (HL),D 3BDE 74 LD (HL),H 3BDF 2061 JR NZ,$3C42 3BE1 2052 JR NZ,$3C35 3BE3 45 LD B,L 3BE4 54 LD D,H 3BE5 55 LD D,L 3BE6 52 LD D,D 3BE7 4E LD C,(HL) 3BE8 2020 JR NZ,$3C0A 3BEA 5E LD E,(HL) 3BEB 42 LD B,D 3BEC 3D DEC A 3BED 72 LD (HL),D 3BEE 65 LD H,L 3BEF 66 LD H,(HL) 3BF0 6F LD L,A 3BF1 72 LD (HL),D 3BF2 6D LD L,L 3BF3 09 ADD HL,BC 3BF4 205E JR NZ,$3C54 3BF6 4C LD C,H 3BF7 3D DEC A 3BF8 66 LD H,(HL) 3BF9 69 LD L,C 3BFA 6E LD L,(HL) 3BFB 64 LD H,H 3BFC 2F CPL 3BFD 72 LD (HL),D 3BFE 65 LD H,L 3BFF 70 LD (HL),B 3C00 6C LD L,H 3C01 61 LD H,C 3C02 63 LD H,E 3C03 65 LD H,L 3C04 2061 JR NZ,$3C67 3C06 67 LD H,A 3C07 61 LD H,C 3C08 69 LD L,C 3C09 6E LD L,(HL) 3C0A 200E JR NZ,$3C1A 3C0C 2050 JR NZ,$3C5E 3C0E 52 LD D,D 3C0F 45 LD B,L 3C10 46 LD B,(HL) 3C11 49 LD C,C 3C12 58 LD E,B 3C13 204B JR NZ,$3C60 3C15 45 LD B,L 3C16 59 LD E,C 3C17 53 LD D,E 3C18 2020 JR NZ,$3C3A 3C1A 5E LD E,(HL) 3C1B 51 LD D,C 3C1C 205E JR NZ,$3C7C 3C1E 4A LD C,D 3C1F 205E JR NZ,$3C7F 3C21 4B LD C,E 3C22 205E JR NZ,$3C82 3C24 4F LD C,A 3C25 205E JR NZ,$3C85 3C27 50 LD D,B 3C28 2020 JR NZ,$3C4A 3C2A 64 LD H,H 3C2B 69 LD L,C 3C2C 73 LD (HL),E 3C2D 70 LD (HL),B 3C2E 6C LD L,H 3C2F 61 LD H,C 3C30 79 LD A,C 3C31 2061 JR NZ,$3C94 3C33 64 LD H,H 3C34 64 LD H,H 3C35 69 LD L,C 3C36 74 LD (HL),H 3C37 69 LD L,C 3C38 6F LD L,A 3C39 6E LD L,(HL) 3C3A 61 LD H,C 3C3B 6C LD L,H 3C3C 206D JR NZ,$3CAB 3C3E 65 LD H,L 3C3F 6E LD L,(HL) 3C40 75 LD (HL),L 3C41 73 LD (HL),E 3C42 2020 JR NZ,$3C64 3C44 2020 JR NZ,$3C66 3C46 2020 JR NZ,$3C68 3C48 2020 JR NZ,$3C6A 3C4A 2000 JR NZ,$3C4C 3C4C 13 INC DE 3C4D A0 AND B 3C4E A0 AND B 3C4F 205E JR NZ,$3CAF 3C51 51 LD D,C 3C52 2050 JR NZ,$3CA4 3C54 52 LD D,D 3C55 45 LD B,L 3C56 46 LD B,(HL) 3C57 49 LD C,C 3C58 58 LD E,B 3C59 2020 JR NZ,$3C7B 3C5B 2020 JR NZ,$3C7D 3C5D 2028 JR NZ,$3C87 3C5F 74 LD (HL),H 3C60 6F LD L,A 3C61 2063 JR NZ,$3CC6 3C63 61 LD H,C 3C64 6E LD L,(HL) 3C65 63 LD H,E 3C66 65 LD H,L 3C67 6C LD L,H 3C68 2070 JR NZ,$3CDA 3C6A 72 LD (HL),D 3C6B 65 LD H,L 3C6C 66 LD H,(HL) 3C6D 69 LD L,C 3C6E 78 LD A,B 3C6F 2C INC L 3C70 2070 JR NZ,$3CE2 3C72 72 LD (HL),D 3C73 65 LD H,L 3C74 73 LD (HL),E 3C75 73 LD (HL),E 3C76 2053 JR NZ,$3CCB 3C78 50 LD D,B 3C79 41 LD B,C 3C7A 43 LD B,E 3C7B 45 LD B,L 3C7C 2062 JR NZ,$3CE0 3C7E 61 LD H,C 3C7F 72 LD (HL),D 3C80 29 ADD HL,HL 3C81 2020 JR NZ,$3CA3 3C83 2020 JR NZ,$3CA5 3C85 2020 JR NZ,$3CA7 3C87 2020 JR NZ,$3CA9 3C89 0E20 LD C,$20 3C8B 43 LD B,E 3C8C 55 LD D,L 3C8D 52 LD D,D 3C8E 53 LD D,E 3C8F 4F LD C,A 3C90 52 LD D,D 3C91 3A2020 LD A,($2020) 3C94 53 LD D,E 3C95 3D DEC A 3C96 6C LD L,H 3C97 65 LD H,L 3C98 66 LD H,(HL) 3C99 74 LD (HL),H 3C9A 2053 JR NZ,$3CEF 3C9C 69 LD L,C 3C9D 64 LD H,H 3C9E 65 LD H,L 3C9F 2020 JR NZ,$3CC1 3CA1 2045 JR NZ,$3CE8 3CA3 3D DEC A 3CA4 74 LD (HL),H 3CA5 6F LD L,A 3CA6 70 LD (HL),B 3CA7 2020 JR NZ,$3CC9 3CA9 58 LD E,B 3CAA 3D DEC A 3CAB 62 LD H,D 3CAC 6F LD L,A 3CAD 74 LD (HL),H 3CAE 74 LD (HL),H 3CAF 6F LD L,A 3CB0 6D LD L,L 3CB1 2020 JR NZ,$3CD3 3CB3 2044 JR NZ,$3CF9 3CB5 3D DEC A 3CB6 72 LD (HL),D 3CB7 69 LD L,C 3CB8 67 LD H,A 3CB9 68 LD L,B 3CBA 74 LD (HL),H 3CBB 2065 JR NZ,$3D22 3CBD 6E LD L,(HL) 3CBE 44 LD B,H 3CBF 206C JR NZ,$3D2D 3CC1 69 LD L,C 3CC2 6E LD L,(HL) 3CC3 65 LD H,L 3CC4 2020 JR NZ,$3CE6 3CC6 2020 JR NZ,$3CE8 3CC8 200E JR NZ,$3CD8 3CCA 2020 JR NZ,$3CEC 3CCC 2020 JR NZ,$3CEE 3CCE 2020 JR NZ,$3CF0 3CD0 2020 JR NZ,$3CF2 3CD2 2020 JR NZ,$3CF4 3CD4 52 LD D,D 3CD5 3D DEC A 3CD6 62 LD H,D 3CD7 65 LD H,L 3CD8 67 LD H,A 3CD9 69 LD L,C 3CDA 6E LD L,(HL) 3CDB 6E LD L,(HL) 3CDC 69 LD L,C 3CDD 6E LD L,(HL) 3CDE 67 LD H,A 3CDF 2066 JR NZ,$3D47 3CE1 69 LD L,C 3CE2 6C LD L,H 3CE3 65 LD H,L 3CE4 2020 JR NZ,$3D06 3CE6 43 LD B,E 3CE7 3D DEC A 3CE8 65 LD H,L 3CE9 6E LD L,(HL) 3CEA 64 LD H,H 3CEB 2066 JR NZ,$3D53 3CED 69 LD L,C 3CEE 6C LD L,H 3CEF 65 LD H,L 3CF0 2020 JR NZ,$3D12 3CF2 2030 JR NZ,$3D24 3CF4 2D DEC L 3CF5 39 ADD HL,SP 3CF6 2C INC L 3CF7 42 LD B,D 3CF8 2C INC L 3CF9 4B LD C,E 3CFA 2C INC L 3CFB 56 LD D,(HL) 3CFC 2C INC L 3CFD 50 LD D,B 3CFE 3D DEC A 3CFF 74 LD (HL),H